Private Sub Grid1_OnScrollBarMove(ByVal nScrollBar As Integer, _
  ByVal nRow As Long, ByVal nDesc As Integer, sToolTip As String)
 
  If nScrollBar = 0 Then
    ' Position merken
    Grid1.Tag = nRow
  End If
End Sub
 
Private Sub Grid1_EndScrollBarMove()
  Grid1.Row = Grid1.Tag
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de