Help with scrolling two DataGrids at the same time... CODE INCLUDED!

[Scott Meddows]

I'm having trouble scrolling some datagrids so they sync up...

I have two identical datagrids on a form, filled with eh same dataset. I want a user to be able to scroll on the datasets and the
other dataset then scrolls to the same place on the other dataset (bare with me). This is the code that I have so far...

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
SqlDataAdapter1 .Fill(IssueData set1)
For Each acontrol As Control In DataGrid1.Contr ols
If acontrol.GetTyp e() Is GetType(VScroll Bar) Then
AddHandler CType(acontrol, VScrollBar).Scr oll, AddressOf vertChange
Exit For
End If
Next
End Sub

Private Sub vertChange(ByVa l sender As Object, ByVal e As ScrollEventArgs )
Static Dim Value As Integer = 0

Dim hHScroll As IntPtr = FindWindowEx(Da taGrid2.Handle, New IntPtr(0), "WindowsForms10 .SCROLLBAR.app3 ", Nothing)
Dim hVScroll As IntPtr = FindWindowEx(Da taGrid2.Handle, hHScroll, "WindowsForms10 .SCROLLBAR.app3 ", Nothing)

If e.NewValue > Value Then
SendMessage(Dat aGrid2.Handle, MsgType.WM_VSCR OLL, CType(MsgType.S B_PAGERIGHT, Integer), hVScroll.ToInt3 2)
Else
SendMessage(Dat aGrid2.Handle, MsgType.WM_VSCR OLL, CType(MsgType.S B_PAGELEFT, Integer), hVScroll.ToInt3 2)
End If

Value = e.NewValue

End Sub

I can get the datagrids to move together, but they don't always end up on the same line as each other. Anyone have any code to fix
this?

Thanks a bunch!

Scott