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