Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
  With Grid1
    If KeyCode = vbKeyUp Then
      KeyCode = 0
      If .TopRow > 1 Then .TopRow = .TopRow - 1
      .Row = .TopRow
    ElseIf KeyCode = vbKeyDown Then
      KeyCode = 0
      .TopRow = .TopRow + 1
      .Row = .TopRow
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de