Hola, una que por ahi sendkeys da problemas, y aparte con api's siempre es mejor, por mas que tengas que escribir mas codigo, es lo mejor que hay.aca te paso una funcion para ir a la linea que quieras en un richtextbox con
SendMessage, despues vos ves como hacer para hacer lo que vos queres.
Código vb:
Ver originalOption Explicit
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 Const EM_LINESCROLL = &HB6
Private Const EM_GETFIRSTVISIBLELINE = &HCE
Private Sub ScrollAutomatico(ByVal pControl As RichTextBox, ByVal pLinea As Long)
Dim vLineaActual As Long
With pControl
vLineaActual = SendMessage(.hwnd, EM_GETFIRSTVISIBLELINE, 0, ByVal 0)
SendMessage .hwnd, EM_LINESCROLL, 0, ByVal pLinea - vLineaActual
.SetFocus
End With
End Sub
Private Sub Command1_Click()
Call ScrollAutomatico(Me.RichTextBox1, 100)
End Sub
saludos.