Private Sub Command1_Click()
Dim t As String
 t = "                      sair                        "
   t = LTrim(t) 'tira os espacos da esquerda
   t = RTrim(t) 'tira os espacos da direita
     MsgBox Len(t) 'caracteres do caption sem espaco kkkkkk

End Sub
...............epaco nao ser mais probRema................kkkkkkkkkkkkkkkkkk

blz vou ver , mas na primeira tentiva nao deu certo nao porq eu puis cara e fico aparecendo na hora q eu abro o AR , somente as letras depois se eu passo o mouse em cima aparece os icones , mas da i quando eu aperto eles , eles nao funcionam , mas vou ver aki , obrigado