Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
r = 0
For i = 0 To 255
If GetAsyncKeyState(i) <> 0 Then r = i
sythe's uber dodgy keycode finder
Type your email address below to get our free Urban Word of the Day every morning!
Emails are sent from firstname.lastname@example.org. We'll never spam you.
Log in with Facebook to save your favorite definitions
and share them with friends.