Como faço para que quando o foco cair no textbox automaticamente o texto ja fique selecionado.

 

Grato.

Se voce não vai usar o texto para o clippboard, aconselho usar o GotFocus

Private Sub Text_GotFocus()

 Text.BackColor = COR_DE_FUNDO

 Text.ForeColor = COR_DE_FRENTE

End Sub

 

Repita a operação no LostFocus, retornando a cor original

 

vlu//

Eu uso assim:

 

Private Sub Text1_GotFocus()
   'Seleciona os dados do campo.
   Text1.SelStart = 0
   text1.SelLength = Len(Text1.Text)
End Sub

 

 

Obrigado a todos

 

A dica do Zoltran foi perfeita para minha aplicação.

 

Obrigado mesmo

 

Ricardo Lira.