Hello,

Here is the API function am using. It will move the Grid scroll bar (thumb) but not the contents of the Grid.

Public Declare Function SetScrollPos Lib "user32" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long
**************************************
Private Sub Command1_Click()
Dim x As Long, y As Long, z As Long
y = Grid1.hwnd
x = 50
z = SetScrollPos(y, 1, x, 1)

End Sub
***************************************

Thanks
Hisham