Private Sub Grid1_EndScrollBarMove()
  Dim nRow As Long
 
  With Grid1
    nRow = .TopRow + .ScreenRows - 1
    If nRow > .Rows Then nRow = .Rows
    .Row = nRow
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de