I have been working on a game and I have come across this error - "RunTime Error "424" Object Required".
I understand what it means and how to fix it however I have been trying to figure it out for literally hours and i'm stumped.
Private Sub Label5_Click()
If RIFLE.blnACTIVE = False Then
If Money >= 1500 Then
Money = Money - 1500
RIFLE.blnACTIVE = True
Label5.Caption = "$3000 - Upgrade Rifle"
Form1.Option2.Enabled = True
ElseIf RIFLE.blnACTIVE = True And RIFLE.sngLEVEL < 6 Then
If Money >= (6000 * (RIFLE.sngLEVEL / 2)) Then
Money = Money - (6000 * (RIFLE.sngLEVEL / 2))
RIFLE.sngLEVEL = RIFLE.sngLEVEL + 1
ElseIf RIFLE.snglvl = 5 Then
MsgBox "Sorry, But your Rifle is at it's maximum level", vbOKOnly, "Zombie Defence"
MsgBox "Sorry, You have insufficent funds", vbOKOnly, "Zombie Defence"
The error points to the line which is in italics.
I do have a module which may have somthing to do with it...
Public Type GUNTYPE
blnACTIVE As Boolean
blnAUTO As Boolean
sngDAMAGE As Single
sngRELOADTIME As Single
sngFIRERATE As Single
sngCOST As Single
sngAMMO As Single
sngLEVEL As Single
money is also dimentionalised and form1.option2 does exist.