Private Declare Function GetScrollPos Lib "user32.dll" (ByVal hwnd As Int32, _
  ByVal nBar As Int32) As Int32
	Private Declare Function SetScrollPos Lib "user32.dll" (ByVal hwnd As Int32, _
ByVal nBar As Int32, ByVal nPos As Int32, ByVal bRedraw As Int32) As Int32
 
	Sub RichTextBox1VScroll(ByVal sender As Object, ByVal e As EventArgs)
		dim pos as integer = GetScrollPos (Me.richTextBox1.Handle.ToInt32(), 1)
		debug.WriteLine ( GetScrollPos (Me.richTextBox1.Handle.ToInt32(), 1).tostring( _
  ))
		setscrollpos (me.richTextBox2.Handle.ToInt32(), 1, pos, 1)
	End Sub