Private Sub TextBox1_KeyUp(ByVal sender ...)
' Nur reagieren, wenn nicht
' Backspace, Return,
' Pfeil links, Pfeil rechts, Pfeil hoch, Pfeil runter
' Pos1, Ende, Entfernen, Einfügen, Shift
' gedrückt wurde, damit die Steuerungstasten nicht abgefragt werden
' Diese Liste ist beliebig erweiter- oder verkleinerbar
If e.KeyCode <> Keys.Back And e.KeyCode <> Keys.Return And _
   e.KeyCode <> Keys.Left And e.KeyCode <> Keys.Right And _
   e.KeyCode <> Keys.Up And e.KeyCode <> Keys.Down And _
   e.KeyCode <> Keys.Pa1 And e.KeyCode <> Keys.End And _
   e.KeyCode <> Keys.Delete And e.KeyCode <> Keys.Insert And _
   e.KeyCode <> Keys.Shift And e.KeyCode <> Keys.ShiftKey Then
 
    ' Timer enablen, falls nicht schon geschehen
	If tmrCombo.Enabled = False Then
	   tmrCombo.Enabled = True
	End If
Else
    tmrCombo.Enabled = False
End If
End Sub