Mostrar RichTextBox en bloques de 6 lineas desde un boton

[seba123neo]

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:

Option 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.