Help me with making my hack (VB6)

when i make a hack with stamina and Winchester+hotkey for winchester
i get an error

text in : Command1 = timer1.enabled = true
text in : Command2 = timer1.enabled = false
text in : Timer1= Call WriteALong("WarRock", &H8C4AFC, 1120403456)
my timer1 is Interval=1 and the timer = false

for the winchester hack are these codes + hotkey

text in : command3 = timer2.enabled = true
text in : timer2 =
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)

and timer2 is Interval 1
and timer2 is False

But when i open warrock and click on the : Stamina button the Stamina works
but if i Press "5" There is no Winchester
But when i press on "Command3" i get a Winchester but cannot shoot and
if i roll again i get a new Winchester ETC.

WTF whats myt problem of the hack

sorry about my long Thread