Keyboard Capture

Anyone know how to create a keyboard capture app in VB?

I need this to monitor a windows 98 machine. I have tried using the GetMessage API call, however I don't have much practice with the API so I may just be doing it wrong...

Also, does anyone know of a way (in VB) to bypass the messaging queues and get data directly from the Raw Input Thread?

About key monitoring (logging?). You can use the GetAsyncKeyState API.

VB Code:

Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub ScanForKey()
    Do
        For i = 3 To 255
            If GetAsyncKeyState(i) Then
                Debug.Print Chr(i)
            End If
        Next
        DoEvents
        Sleep 100
    Loop
End Sub