Hey, first of all, is VK key the best way to go? I use it in C++ a litte, seems to work. Anyways, heres what I have, isn't working.

Dim checkkeys As Boolean
Private Declare Function GetAsyncKeyState _
Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
checkstuff
End Sub
Private Sub checkstuff()
checkkeys = True
Do While checkkeys = True
If GetAsyncKeyState(VK_DOWN) Then
MsgBox "YESSUM!"
Else
MsgBox "NOPE"
End If
Loop
End Sub