Private Sub Command10_Click()
Timer2.Interval = 1
End Sub
Private Sub Command11_Click()
Timer1.Interval = 0
End Sub
Private Sub timer2_timer()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H180
Call WriteALong("Warrock", Swim1, 2500)
End Sub