help making trainer vb6

hey i am making my first trainer in vb6 could anyone tell me if this form is good


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

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

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

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

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

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

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

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

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

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

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

Private Sub Timer2_Timer()
Call WriteALong("Warrock", &H943A54, 0)
Call WriteALong("Warrock", &H943A55, 0)
Call WriteALong("Warrock", &H943A56, 0)
Call WriteALong("Warrock", &H943A57, 0)
Call WriteALong("Warrock", &H943A58, 0)
Call WriteALong("Warrock", &H943A59, 0)
End Sub

Private Sub Timer3_Timer()
Call WriteALong("Warrock", &H943A50, 0)
Call WriteALong("Warrock", &H943A52, 0)
Call WriteALong("Warrock", &H943A51, 0)
Call WriteALong("Warrock", &H943A53, 0)
End Sub

Private Sub Timer4_Timer()
Call WriteALong("Warrock", &HB56F60, 0)
End Sub

Private Sub Timer5_Timer()
Call WriteALong("Warrock", &HB4C7D0, 4)
End Sub