This code finds if any key pressed. This will be helpfull for example you’re programming a screensaver. But you can not get keypresses through forms because of some components which does not support this keypress event. So you must use some API’s to do this.
Original Author: Huseyin Uslu
API Declarations
Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer
Code
sKeyStat = 0
For i = 0 To 255
KeyResult = GetAsyncKeyState(i)
If KeyResult = -32767 Then
sKeyStat = 1
Exit For
End If
Next i
If sKeyStat = 1 Then
msgbox "Key pressed!!!"
End If