Dim vTasten(255) As Integer
Dim vText(255) As String
 
Private Sub Form_Load()
Dim i As Integer
 
' Sicherheitsfestlegung auf "1"
For i = 1 To 255
    vTasten(i) = 1
    vText(i) = "Up"
Next
End Sub
 
Private Sub Tastendruck()
Dim i As Integer
' Die Tastendruck simulation !!! Nicht SendKeys !!
 
For i = 1 To 255
    If vTasten(i) = 1 And vText(i) = "Down" Then
        Call keybd_event(i, 0&, 0&, 0&)
        vTasten(i) = 2
    End If
    If vTasten(i) = 2 And vText(i) = "Up" Then
        Call keybd_event(i, 0&, KEYEVENTF_KEYUP, 0&)
        vBack = "1"
    End If
Next
 
End Sub