My no recoil/spread is not working xD Help Please

Here are the codes i use...

Timer:

Code:

---

Private Sub Timer2_Timer()
Call WriteALong("WarRock", &H90BC71, 0)
Call WriteALong("WarRock", &H90BC72, 0)
Call WriteALong("WarRock", &H90BC73, 0)
Call WriteALong("WarRock", &H90BC74, 0)
Call WriteALong("WarRock", &H90BC75, 0)
Call WriteALong("WarRock", &H90BC76, 0)
Call WriteALong("WarRock", &H90BC77, 0)
Call WriteALong("WarRock", &H90BC78, 0)
Call WriteALong("WarRock", &H90BC79, 0)
End Sub

---

To activate:

Code:

---

Private Sub Command12_Click()
Timer2.Interval = 1
End Sub

---

To change to normal:

Code:

---

Private Sub Command13_Click()
Timer2.Interval = 0
End Sub

---