'Focus auf Feld setzen Anfang
Private Declare Function SetFocusAPI Lib "user32" _
  Alias "SetFocus" ( _
  ByVal hWnd As Long) As Long
'Focus auf Feld setzen Ende
 
Private Sub Form_Load()
    SetFocusAPI txt_eingabe.hWnd
    tabelle_erstellen
End Sub
 
Sub tabelle_erstellen()
    With grid
        .left = 200
        .Clear
        .AllowDelete = False
        .AllowEdit = False
        .ColumnAdd 1, "Eingabe", 2500, ALIGNMENT_LEFT, True, TYPE_TEXT, _
          ALIGNMENT_CENTER
        .ColumnAdd 2, "Zeit", 2500, ALIGNMENT_LEFT, True, TYPE_TEXT, _
        ALIGNMENT_CENTER
    End With
End Sub
 
Sub datensatz_erstellen()
     With grid
        .AddItem txt_eingabe.Text & vbTab & Now
        .MoveLast
     End With
End Sub
 
Private Sub txt_eingabe_Validate(Cancel As Boolean)
    datensatz_erstellen
    txt_eingabe.Text = ""
    SetFocusAPI txt_eingabe.hWnd
End Sub