Dim Tasten(255) As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer)
Tasten(KeyCode) = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer)
Tasten(KeyCode) = False
EndSub
 
'Abfragen einer Taste:
'Als Beispiel: Ein Timer gibt bei jedem Ereignis den Zustand der Taste "A" in 
' einem Label aus
Private Sub Timer1_Timer()
Label1.Text = Tasten(vbKeyA)
End Sub