Allow RichTextBox Scrollbar to control another RTB scroll

[Edgemeal]

I did manage to get a little better control of the synced scrolling, but I'm not sure on how I could get them to scroll together by using the up and down arrows. If I figure that out I'll post here with my finalized code to help others out too.

Just curious, have you tried the clsRTFScrollSync class? I tried it in WinXP-32 only with VB10 and the scrollthumbs, keyboard arrows/page Up/Down and even the middle mouse arrow thingy kept both RTBs scrollbars in sync.

One problem I ran into in VB10 with Option Strict On was that VB complains of late binding in the Public Sub AddControl, tho haven't bothered to figure out how to fix that as I really have no use for this.

I setup two RTBs the same and tried it like this,

Private objScrollSync As New clsRTFScrollSync

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    objScrollSync.ScrollBarToSync = ScrollBars.Both
    objScrollSync.AddControl(RichTextBox1)
    objScrollSync.AddControl(RichTextBox2)
End Sub