Private Sub Grid1_EditKeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57, 8
      If Grid1.Col = Grid1.Cols Then
        Grid1.Text(Grid1.Row, Grid1.Col) = Chr(KeyAscii)
        KeyAscii = 0
        Grid1.DoEdit Grid1.Row + 1, 2
      Else
        SendKeys "{TAB}"
      End If
    Case Else
      KeyAscii = 0
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de