Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  Dim nCol As Long
  Dim nRow As Long
 
  With Grid1
    nRow = .Row: nCol = .Col
    Select Case KeyCode
      Case vbKeyUp
        If nRow > 1 Then
          KeyCode = 0
          .UpdateRow
          .DoEdit nRow - 1, nCol
        End If
      Case vbKeyDown
        If nRow < .Rows Then
          KeyCode = 0
          .UpdateRow
          .DoEdit nRow + 1, nCol
        End If
      Case vbKeyLeft
        If nCol > 1 Then
          KeyCode = 0
          SendKeys "+{TAB}"
        End If
      Case vbKeyRight
        If nCol < .Cols Then
          KeyCode = 0
          SendKeys "{TAB}"
        End If
    End Select
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de