TUT unl ammo and anti kick (help) vb6

plz can some1 help me whit unl ammo and anti kick i know some of vb6

i got stamina
i got sj and nfd but antikick doesnt work i got this in the timer

Private Sub Timer4_Timer()
Call owned15("Warrock", 5.05E+97, &H90)
Call owned15("Warrock", 5.05E+97, &H90)
Call owned15("Warrock", 5.05E+97, &H90)
Call owned15("Warrock", 5.05E+97, &H90)
End Sub

really wronghahahahahaha
i dont know the reall but
1.anti-kick = a 6byte not 4
2.("Warrock", 5.05E+97, &H90)? more lik this:
("Warrock", &Hadress, &H90)
3. old adresses?