Little Help?

Ok When i try my unlimited ammo hack for some reason it crashes game whats wrong? (using latest addresses)

Private Sub Timer3_Timer()
Call mycode("WarRock", &H51EA06, &H90)
Call mycode("WarRock", &H51EA07, &H90)
Call mycode("WarRock", &H51EA08, &H90)
Call mycode("WarRock", &H51EA17, &H90)
Call mycode("WarRock", &H51EA18, &H90)
Call mycode("WarRock", &H51EA19, &H90)
Call mycode("WarRock", &H51EA1D, &H90)
Call mycode("WarRock", &H51EA1E, &H90)
Call mycode("WarRock", &H51EA1F, &H90)
End Sub

i think problem has something to do with things in bold !

Also my stamina hack stakes my stamina instead of full!

Private Sub Timer4_Timer()
Dim Stam1 As Long
Dim Stam2 As Long
Call mycode("WarRock", &H13783A0, Stam1)
Stam2 = Stam1 + &H28C
Call mycode("WarRock", Stam2, 100)
End Sub

And surprise my anti-kick doesn't work either:

Private Sub Timer2_Timer()
Call mycode("warrock", &H505935, &H90)
Call mycode("warrock", &H505936, &H90)
Call mycode("warrock", &H505937, &H90)
Call mycode("warrock", &H505938, &H90)
Call mycode("warrock", &H505939, &H90)
Call mycode("warrock", &H50593C, &H90)
End Sub

Headshot hack says error about this: GetAKeyState

If GetAKeyState(vbKeyLButton) Then
Call mycode("warrock", &H4A3914, &H31)
Else
Call mycode("warrock", &H4A3914, &H85)
End If