Hotkeys on VB6 Problem

Why doesn't work any hotkey pls help...this is an example.

Private Sub Timer1_Timer()
If GetAsyncKeyState(18) <> 0 Then
Dim sj As Long
Dim sj1 As Long
Dim sj2 As Single
Call ReadALong1("Warrock", &HXXXXXX, sj)
sj1 = sj + &HXXX
sj2 = Text1.Text
Call WriteAFloat1("Warrock", sj1, Text1.Text)
End If
End Sub

(Intervall=100)

why it doesn't work??? +help



here another example that doesn't work:

Private Sub Timer2_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyNumpad1) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong1("Warrock", &HXXXXXX, shotgun)
shotgun1 = shotgun + &HXX
Call WriteALong1("Warrock", shotgun1, 34)
End If
End Sub

(Interval=1)

why it doesn't work??? +help

HELPPPPPPPPPPPPPPPPPPPPPPPPP!