VB6 - Method or data member not found - Menu Items

Hi I have a problem compiling a form with this code.

Private Sub mnuBlue_Click(Index As Integer)
mnuRed.Checked = False
mnuBlue.Checked = True
mnuYellow.Checked = False
mnuOrange.Checked = False
mnuWhite.Checked = False
mnuOriginal.Checked = False
End Sub

Private Sub mnuOrange_Click(Index As Integer)
mnuRed.Checked = False
mnuBlue.Checked = False
mnuYellow.Checked = False
mnuOrange.Checked = True
mnuWhite.Checked = False
mnuOriginal.Checked = False
End Sub

Private Sub mnuOriginal_Click(Index As Integer)
mnuRed.Checked = False
mnuBlue.Checked = False
mnuYellow.Checked = False
mnuOrange.Checked = False
mnuWhite.Checked = False
mnuOriginal.Checked = True
End Sub

Private Sub mnuWhite_Click(Index As Integer)
mnuRed.Checked = False
mnuBlue.Checked = False
mnuYellow.Checked = False
mnuOrange.Checked = False
mnuWhite.Checked = True
mnuOriginal.Checked = False
End Sub

Private Sub mnuYellow_Click(Index As Integer)
mnuRed.Checked = False
mnuBlue.Checked = False
mnuYellow.Checked = True
mnuOrange.Checked = False
mnuWhite.Checked = False
mnuOriginal.Checked = False
End Sub

Private Sub nmuRed_Click(Index As Integer)
mnuRed.Checked = True
mnuBlue.Checked = False
mnuYellow.Checked = False
mnuOrange.Checked = False
mnuWhite.Checked = False
mnuOriginal.Checked = False
End Sub

Text in red is what VB6 highlights in blue.
Is there any way to fix this?
Project is Below.
Project.zip

Attached Files

• Project.zip (1.6 KB)