well, i would do it like this
private sub guntimer_timer() (a timer WITH INTERVAL = 1 STANDARD)
If GetKeyPress(vbKeyNumpad1) Then
if Timer12.interval = 0 then Timer12.interval =1
else Timer12.interval =0
end if
end if
so when you open to form the guntimer is rolling and waiting for you to press. when you press it'll see that timer 12 isn't active and it will activate it
Private Sub Timer12_Timer()
Dim Guns As Long
Dim Guns1 As Long
Dim Value1 As Long
If GetKeyPress(vbKeyG) Then
Call ReadALong("WarRock", &H896E28, Guns1)
Guns = Guns1 + &H4C
Call WriteALong("Warrock", Guns, Text1.text)
End If
End Sub
you know this part
hope it helps