Declare  Function  GetAsyncKeyState  Lib  "user32.dll"  ( ByVal vKey As Long ) _
  As Long
 
CBool(Retval And &H8000) 'Gedrückt
CBool(Retval And &H1) 'Zuletzt gedrückt (unnötig)
 
Private Sub Timer1_Tick()
	If CBool(Taste(X) And &H8000) Then
		TextBox.Text &= Taste(X)
	End If
End Sub

An sich gibt es nie Probleme, nur einen Weg, um sie zu l?sen.