Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
 
Private Sub Timer1_Timer()
    keyState = GetAsyncKeyState(vbKeyF1)
    If (keyState <> 0) Then
        Label1.Caption = "Player 1 drückt"
    Else
        Label1.Caption = ""
    End If
    keyState = GetAsyncKeyState(vbKeyF2)
    If (keyState <> 0) Then
        Label2.Caption = "Player 2 drückt"
    Else
        Label2.Caption = ""
    End If
End Sub