Option Explicit
 
Private Sub Form_Load()
  Dim i As Long
 
  With Grid1
    .DataMode = Mode_List
     .Cols = 10
     For i = 1 To 20
       .AddItem "Zeile " & CStr(i)
     Next i
     .NoHighlight = True
     .AllowEdit = True
     .AutoEdit = True
  End With
End Sub
 
Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer)
 
  Grid1.DoEdit nRow, nCol
End Sub
 
Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  ' Cursor-Steuerung
  Dim nCol As Long
  Dim nRow As Long
 
  With Grid1
    nCol = .Col
    nRow = .Row
 
    If KeyCode = vbKeyUp Then
      KeyCode = 0
      If nRow > 1 Then
        .UpdateRow
        .DoEdit nRow - 1, nCol
      End If
 
    ElseIf KeyCode = vbKeyDown Then
      KeyCode = 0
      If nRow < .Rows Then
        .UpdateRow
        .DoEdit nRow + 1, nCol
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de