[VB6] Tab che seleziona

[yyzyyz]

intendi una kosa del genere ?

Private Sub Text2_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub