wat do i need to make a hack

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

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

Private Sub Command11_Click()
Timer6.Interval = 1
Timer7.Interval = 0
End Sub

Private Sub Command12_Click()
Timer1.Interval = 0
Timer2.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 Command7_Click()
Timer4.Interval = 1
End Sub

Private Sub Command8_Click()
Timer4.Interval = 0
End Sub

Private Sub Command9_Click()
Timer5.Interval = 1
End Sub

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

Private Sub Timer2_Timer()
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
End Sub

Private Sub Timer3_Timer()
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
End Sub

Private Sub Timer4_Timer()
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
Call WriteALong("WarRock", &Hxxxxxx, 0)
End Sub

Private Sub Timer5_Timer()
Dim NFD As Long
    Dim NFD1 As Long
    Call ReadALong("WarRock", &Hxxxxxx, NFD)
    NFD1 = NFD + &H26C
    Call WriteALong("Warrock", NFD1, -2000)
End Sub

Private Sub Timer6_Timer()
Call WriteALong("WarRock", &Hxxxxxx, 0)
End Sub

Private Sub Timer7_Timer()
Call WriteALong("WarRock", &Hxxxxxx, 1176256512)
End Sub

Private Sub Timer8_Timer()
If GetKeyPress(vbKeyRButton) Then
Call WriteALong("Warrock", &Hxxxxxx, 0)
Else:
Call WriteALong("Warrock", &Hxxxxxx, 1176256512)
End Sub