hey,

i got all the things but how can i stop the swimming this is my code:

Code:
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Timer2.Interval = 1
End Sub

Private Sub Command4_Click()
Timer2.Interval = 0
End Sub

Private Sub Command5_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

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