hola desde visual lo podes hacer
Cita: Private Sub Command1_Click()
Text1.SelStart = Len(Text1)
End Sub
y con las apis
Cita: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Sub Command2_Click()
SendMessage Text1.hWnd, &H115, 7, 0
End Sub
Saludos