¿Cómo controlar mediante programación la barra de desplazamiento de richtextbox en vb2005 para desplazamiento libre?

Según su petición ha sido probado. Captura de pantalla adjunta. A continuación se muestra el código del programa.

Bienvenido a comunicar.

'------------------------------------------ --- -------------

¿Público?Clase?Form1

Privado?Sub?Botón1_Click(ByVal?remitente?As?System.Object ,?ByVal ?e?As?System.EventArgs)?Handles?Button1.Click

test()

Fin?Sub

Privado?Sub?test ()

¿Dim?line?As?Integer

Probar

line?=?CInt(TextBox1.Text)

¿Capturar? ex?As ?Exception

Salir?Sub

Fin?Try

Me.SetScrollValue(línea)

Fin?Sub

Privado?Sub?SetScrollValue(ByVal?line?As?Integer)

Dim?max?As?Integer?=?Me.RichTextBox1.Lines.Length

If?checkValue (line,?max)?=?False?Then

Salir?Sub

End?If

'Para conservar la posición original del cursor, reemplazar Simplemente cancele el comentario

'Dim?oldpostion?As?Integer?=?Me.RichTextBox1.SelectionStart

Me.RichTextBox1.SelectionStart?=?Me.RichTextBox1.GetFirstCharIndexFromLine(line )

Me.RichTextBox1.ScrollToCaret()

'Me.RichTextBox1.SelectionStart?=?oldpostion

Fin?Sub

Privado ? Función?checkValue(ByVal?line?As?Integer,?ByVal?max?As?Integer)?As?Boolean

Return?line?>?0?AndAlso?line?<=?max< / p>

¿Fin?Función

¿Fin?Clase