Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  With Grid1
    If .IsEditMode = MODE_EDIT Then
      If KeyAscii = 13 And .Row < .Rows Then
        KeyAscii = 0
        .DoEdit .Row + 1, .Col
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de