Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As _
      Integer) As Short
    Private Const VK_B = &H42   ' Taste B
    Private Const VK_C = &H43   ' Taste C
    Private Const VK_A = &H41
    Private Const VK_S = &H53
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim Retval1 As Long
        Dim Retval2 As Long
        Dim Retval3 As Long
        Dim Hotkey1 As Boolean = GetAsyncKeyState(VK_B)
        Dim Hotkey2 As Boolean = GetAsyncKeyState(VK_C)
        Dim Hotkey3 As Boolean = GetAsyncKeyState(VK_A) And GetAsyncKeyState( _
          VK_S)
 
        Retval1 = GetAsyncKeyState(VK_B)
        Retval2 = GetAsyncKeyState(VK_C)
        Retval3 = GetAsyncKeyState(VK_A) And GetAsyncKeyState(VK_S)
 
        ' Auswerten des Ergebnisses
        If CBool(Retval1 And &H8000) Then
            SendKeys.Send("tDie Taste B wurde gedrückt!{ENTER}tUnd es wurde" & _
              "gewartet")
        End If
        If CBool(Retval2 And &H8000) Then
            SendKeys.Send("tDie Taste C wurde gedrückt!{ENTER}tUnd es wurde" & _
              "gewartet")
        End If
        If CBool(Retval3 And &H8000) Then
            SendKeys.Send("tDie Taste A und S wurde gedrückt.")
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
    End Sub
End Class