Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab And Shift <> 0 Then
    KeyCode = 0
    If Grid1.IsEditMode = 1 Then  ' MODE_EDIT
      Grid1.SendKeys vbKeyReturn, 0
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de