Option Explicit
 
Private Sub Form_Load()
  ' Grids befüllen
  Dim i As Long
 
  With Grid1
    .DataMode = Mode_List
    .LockUpdate True
    For i = 1 To 1000
      .AddItem "Zeile " & CStr(i)
    Next i
    .LockUpdate False
    .Refresh
  End With
 
  With Grid2
    .DataMode = Mode_List
    .LockUpdate True
    For i = 1 To 1000
      .AddItem "Zeile " & CStr(i)
    Next i
    .LockUpdate False
    .Refresh
  End With
End Sub

Private Sub Grid1_RowChange(ByVal nRow As Long)
  Grid2.TopRow = Grid1.TopRow
End Sub

Private Sub Grid1_Scroll(ByVal nScrollBar As sevDataGrid2.sevGridScrollBar)
  If nScrollBar = VScrollBar Then
    Grid2.TopRow = Grid1.TopRow
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de