whats wrong

[thr33ofv3]

If Picture1.BackColor = &HFF& = True Then
Picture1.BackColor = &HFF00&
Command1.Caption = "Stamina [ON]"
Dim Stam1 As Single
Dim Stam2 As Long
Call D80B97B1(&H136A0E0, Stam1)
Stam2 = Stam1 + &H288
Call E9206BF1(Stam2, 100)
Else
Picture1.BackColor = &HFF&
Command1.Caption = "Stamina [OFF]"
End If

thanks..

[ZeaS]

i don't understand why you work with picture? =\

If Picture1.BackColor = &HFF& Then // remove the true
Picture1.BackColor = &HFF00&
Command1.Caption = "Stamina [ON]"
Dim Stam1 As Single
Dim Stam2 As Long
Call D80B97B1(&H136A0E0, Stam1)
Stam2 = Stam1 + &H288
Call E9206BF1(Stam2, 100)
Else
Picture1.BackColor = &HFF&
Command1.Caption = "Stamina [OFF]"
End If

your stamina wont go out because look you sayed if backcolor is &HFF& then ... your else look this .. backcolor = &HFF& you see? &HFF& and &HFF& so your stamina wont go off =\