Dim TasteGedrueckt As Boolean
 
Private Sub Form_Load()
TasteGedrueckt = False
End Sub
 
Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)
If TasteGedrueckt Then KeyCode = 0
TasteGedrueckt = True
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
TasteGedrueckt = False
End Sub