what is my mistake ?? (Making hack VB6)

[floris12345!]

whats is here wrong
is made a Stamina + winchester hack with hotkey
here is de code :
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer2.Enabled = True
End Sub

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

Private Sub Timer2_Timer()
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)
End Sub



What am i doing wrong ??

P.S. this is the error :
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H8C4AFC, 1120403456)
End Sub

and timer1 and timer2 are both False and Interval 1

is there a problem ??

[floris12345!]

P.S. this is the error :
Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H8C4AFC, 1120403456)
End Sub

and timer1 and timer2 are both False and Interval 1

is there a problem ??

[floris12345!]

here is a screenshot

[ZeaS]

if you use "If" you must use "End if"

Private Sub Timer2_Timer()
If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)
End if 'Here Look << it need "End If"
End Sub