that no work this cod:
Is in ChekBox:
-1 checkbox
-2 2Timers
In 1ºTime I put this:
If Check4.value = 1 Then Timer8.Enabled = True
or
If Check4.value = 1 Then Timer8..Interval = 1
and in 2 Timer this:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyR) Then
Dim Shotgun As Long
Dim Shotgun1 As Long
Call ReadALong("Warrock", &H1373FE0, Shotgun)
Shotgun1 = Shotgun + &H4C
Call WriteALong("Warrock", Shotgun1, 42)
End If
that work????
thx