Is This Right?

rivate Sub Command1_Click(Index As Integer)
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()
Timer3.Interval = 1
End Sub

Private Sub Command6_Click()
Timer3.Interval = 0
End Sub


Private Sub Timer1_Timer()
Dim ST1 As Long
Dim ST2 As Long
Call ReadALong("Warrock", &H1306A70, ST1)
ST2 = ST1 + 648
Call WriteALong("Warrock", ST2, 1120403456)
End Sub

Private Sub Timer2_Timer()
Dim ammo1 As Long
Dim ammo2 As Long
Call ReadALong("Warrock", &H1306A70, ammo1)
ammo2 = ammo1 + AF98B4
Call WriteALong("Warrock", ammo2, 1092779973)
End Sub


Private Sub Timer3_Timer()
Dim scope1 As Long
Dim scope2 As Long
Call ReadALong("Warrock", &H1306A70, scope1)
scope2 = scope1 + AF98AA
Call WriteALong("Warrock", scope2, 1)
End Sub

Private Sub Timer4_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyZ) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1306A70, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun1, Text1.Text)
End If
End Sub

Dim USA As Long
Dim USV As Long
Call ReadALong("WarRock", &H1306A70, USA)
USV = USA + &H288
Call WriteALong("WarRock", USV, 1120403456)

Dim GSA As Long
Dim GSV As Long
Call ReadALong("WarRock", &H1306A70, GSA)
GSV = GSA + &H4C
Call WriteALong("WarRock", GSV, 42)