The state of something being more than just dodgy. It has to be not only extremely dodgy but also created / constructed / made in under 5 seconds.
Sythe says:
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
Next i
MsgBox r

End Sub
Sythe says:
sythe's uber dodgy keycode finder
by sythe February 12, 2005
Get the uber dodgy mug.