My Hotkeys Dont Work!

[ltkort213]

Can Someone Help me? My hotkeys dont work anymore!!!
I searched almost the whole warrock section for help, but none of them helped!

Here is a Part of My code:

Private Sub Command3_Click()
If GetKeyPress(vbKeyNumpad1) Then
Label6.Visible = True
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H8B5288, jump)
jump1 = jump + &H180
jump3 = Text1.Text
Call WriteAFloat("WarRock", jump1, jump3)
Label6.Visible = False
End If
End Sub

Of Course If have This:

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

or this

Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

In My Module and my Form Code!

Thnx, LTKort213

[ZeaS]

timer interval = 100 ???

[juppeli]

Private Sub Command3_Click()

It need to be timer (you have command button), and its interval should be 1-100(or something like that).

[ltkort213]

thnx guys it worked!

One of you wants to test my hack?