Keydown with no form (possible?)

[DPearce]

How can I get the current keyboard input from within my module which has no form or UI? I just want to be able to detect the Shift status with a timer event.

Any help appreciated.

Try this in a new module and set the startup to sub main

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub Main()
    Do
        If GetAsyncKeyState(vbKeyShift) <> 0 Then
            MsgBox "Shift pressed"
        End If
        DoEvents
    Loop
End Sub

[This message has been edited by Azzmodan (edited 11-08-1999).]

[DPearce]

Fantastic.

Thanks for the help, works a treat.