Shoutbox

Ok I made a program that will double press W when the Up arrow was pressed once. I made it for a game. I tested it in Notepad and It works great. But when I go to use it in the game it does not work at all. Could any one explain to me why it don't work?

Heres my program:

code:

---

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyUp) Then
SendKeys "{W}"
SendKeys "{W}"
End If
End Sub

---