Call WriteALong("Warrock", &HB4C7D0, 4)
timer1.Enabled = True
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call WriteALong("Warrock", &HB4C7D0, 4)
End Sub