Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    If Grid1.Col <> Grid1.Cols Then
      SendKeys "{TAB}", True
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de