[ HELP ] stamina code

my first time coding in vb so im trying to get the hang of it i keep getting errors using this

Code:

---

Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False


Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)

End Sub

---

Quote:

---

Originally Posted by ilovepie21

my first time coding in vb so im trying to get the hang of it i keep getting errors using this

Code:

---

Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False


Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)

End Sub

---

---

Drop this:

Code:

---

Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)

---

in a timer.

and drop this:

Code:

---

if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If

---

in your button...

like this:

Code:

---

Private Sub Stamina_Click()
if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

---