Gracias por el codigo lo estube buscando pero no lo pude hallar, es justo lo que necesitaba.
Tengo otra consulta, digamos que siempre seran 6 lineas en el Rich, como podria llamar a la funcion si busco una palabra y esta se encuentra en la linea 6.
Asi hago la busqueda
Código:
xBuscar = RichTextBox1.Find(xActual, Posicion)
RichTextBox1.SelColor = vbRed
'Aqui seria de esta manera?
if linea=6 then
'aplico scroll
Call ScrollAutomatico(Me.RichTextBox1, 5)
End if
Estoy probando de varias formas pero no lo consigo