two grids(sheridan grids) scrolling in sync using a single scroll bar in VB6.0

See more:

bar

There are two sheridan grids of same size.
First grid has horizontal scrollbar to scroll the columns.
Second grid has no scroll bar.
Now the problem is that when i scroll the scroll bar of first grid ,i want the columns of the second grid also to scroll
simultaneously.
Can you please help me out how do both grids scroll simultaneously using single scroll bar.

I have used scroll event called Scroll_After():

Private Grid1_ScrollAfter()
Grid2.LeftCol = Grid1.LeftCol
End Sub

But still am not able to see Grid2 scrolling along with Grid1.