Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  With Grid1
    If .IsEditMode = MODE_EDIT Then
      ' ENTER?
      If KeyAscii = 13 Then
        KeyAscii = 0
'        SendKeys "{TAB}"
        Grid1.SendKeys vbKeyTab, 0
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de