Dim Gedrückt(255)
 
Private Sub Pic_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode < 256 Then Gedrückt(KeyCode) = 1
End Sub
 
Private Sub Pic_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode < 256 Then Gedrückt(KeyCode) = 0
End Sub
 
Private Sub Timer1_Timer()
    Me.Cls
    If Gedrückt(65) Then
        Print "A = true"
    Else
        Print "A = false"
    End If
    If Gedrückt(81) Then
        Print "Q = true"
    Else
        Print "Q = false"
    End If
    If Gedrückt(38) Then
        Print "up = true"
    Else
        Print "up = false"
    End If
    If Gedrückt(40) Then
        Print "down = true"
    Else
        Print "down = false"
    End If
End Sub