WHAT I HAVE TO DO?? I can't unfreeze this SWIM CODE
IS THIS RIGHT:
THIS IS FREEZE button:
Private Sub Command4_Click()
Timer2.Interval = 1
End Sub
And this unfreeze:
Private Sub Command5_Click()
Timer2.Interval = 0
End Sub
Private Sub Command6_Click()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End Sub
AND TIMER 2 IS:
Private Sub Timer2_Timer()
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End Sub