Private Sub Command1_Click()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub Command2_Click()
Timer1.Interval = 1
End Sub
Private Sub Command3_Click()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7D9120, 1120403456)
End Sub


