You can use the GetAsyncKeyState API with the Timer Control to Monitor the Virtual Key Codes activated from any Application, eg.
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    Dim iKey As Integer
    For iKey = 0 To 255
        If GetAsyncKeyState(iKey) Then Caption = "Virtual KeyCode: " & iKey & " was pressed."
    Next
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]