Private Declare Function GetKeyState Lib "user32.dll" ( _
    ByVal nVirtKey As Long _
) As Integer
 
Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
    ByVal vKey As Long _
) As Integer
 
Private Const VK_MENU As Long = &H12&
Private Const VK_SHIFT As Long = &H10&
Private Const VK_CONTROL As Long = &H11&
Private Const VK_CAPITAL As Long = &H14&
 
Private Barcode As String
 
 
Private Sub Form_Load()
'Hier wird der Timer gestartet, der auf das Startsignal wartet
tmrStart.Enabled = True
End Sub
 
Private Sub tmrBarcode_Timer()
'um zu verhindern das Tastatureingaben das ergebnis verfälschen nach 6 Zeichen
'das Auslesen beenden und auf das Startzeichen warten
If Len(Barcode) < 6 Then
    Label1.Caption = Len(Barcode)
    If CBool(GetAsyncKeyState(vbKey0) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 0
        Barcode = Barcode & "0"
    End If
 
    If CBool(GetAsyncKeyState(vbKey1) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 1
        Barcode = Barcode & "1"
    End If
 
    If CBool(GetAsyncKeyState(vbKey2) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 2
        Barcode = Barcode & "2"
    End If
 
    If CBool(GetAsyncKeyState(vbKey3) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 3
        Barcode = Barcode & "3"
    End If
 
    If CBool(GetAsyncKeyState(vbKey4) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 4
        Barcode = Barcode & "4"
    End If
 
    If CBool(GetAsyncKeyState(vbKey5) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 5
        Barcode = Barcode & "5"
    End If
 
    If CBool(GetAsyncKeyState(vbKey6) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 6
        Barcode = Barcode & "6"
    End If
 
    If CBool(GetAsyncKeyState(vbKey7) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 7
        Barcode = Barcode & "7"
    End If
 
    If CBool(GetAsyncKeyState(vbKey8) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 8
        Barcode = Barcode & "8"
    End If
 
    If CBool(GetAsyncKeyState(vbKey9) And &H8000) Then
    'wenn die 0 gedrückt wird erweitere die Variable um eine 9
        Barcode = Barcode & "9"
    End If
 
    lblBar.Caption = Barcode
Else
    tmrBarcode.Enabled = False
    tmrStart.Enabled = True
    Label1.Caption = "Warte auf Start"
End If
End Sub
 
Private Sub tmrStart_Timer()
    If CBool(GetAsyncKeyState(vbKeyInsert) And &H8000) Then
    'Wenn die Einüge-Taste gedückt wurde, starte den Aufnahmetimer um den 
    ' Barcode einzulesen
    tmrBarcode.Enabled = True
    'Den Starttimer brauchen wir einstweilen nicht mehr
    tmrStart.Enabled = False
    Label1.Caption = "Warte auf eingabe"
    End If
End Sub