| |||
hola desde visual lo podes hacer Cita: Private Sub Command1_Click() Text1.SelStart = Len(Text1) End Sub y con las apis Cita: Saludos 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
__________________ www.leandroascierto.com |
| ||||
muchisimas gracias! me funciono muy bien!
__________________ Diese stadt ist eine Dirne, hat rote flecken auf der Stirn - RAMMSTEIN |