by -raistlinthewiz- Huseyin Uslu (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
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.
API DeclarationsDeclare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
VBcoderssKeyStat = 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