risolto
dovevo andare su
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
in questo modo ....mi scrive la frase sul text e me la seleziona
grazie