Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles _
    HotKey.HotKeyPressed
        If HotKeyID = "Barcode" Then
            SendKeys.Send("^(a)")
            SendKeys.Send("^(c)")
            'Nur Kontrollausgabe
            MsgBox(HotKeyID & vbNewLine & "Clipboard: " & _
              Clipboard.GetText.ToString, MsgBoxStyle.SystemModal)
        Else
            MsgBox(HotKeyID, MsgBoxStyle.SystemModal)
        End If
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten