[2005] MenuItem Checked

[Christineeve]

I have this lovely menubar that works great except for two components that
need to allow the user to check and uncheck if necessary. If the check
mark is visible (checked) then it should run a procedure. If the checkmark
is not visible (or checked) then it should not run the procedure.

Additionally, the default setting will be checked so both procedures run when
the application is installed and run. So therefore if the user "unchecks" the
checkmark an advisory needs to pop up and say, "You've chosen to not
view...." and else if they turn it back on, "You've chosen to play the ...."

I only have two procedures where this needs to occur and right now, my
code cannot seem to figure out what to do with the checkmark. I have it
checked and it runs the code for the unchecked state.

Additionally, the application doesn't remember the changed setting the next
time I run the application. I cannot use a global settings saved method
because I need to save the state of other controls independantly of this
control.

I apologize for posting this when there are numerous posts on this subject.
Despite reading site after site on this subject, I cannot figure what I've done
wrong or what I am missing in my code. Any help would be appreciated. I've
been to all the sites offered on this site and already reviewed MSDN and my
VB books. I'm at my wit's end.

Here is my sample code.

'The default setting is checked. 
 Private Sub MissionBriefingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles MissionBriefingToolStripMenuItem.Click
        Dim mymenu As New ToolStripMenuItem
        Try
            If mymenu.CheckState = CheckState.Checked = True Then
                MsgBox("You have turned ON the Mission Briefing. _ 
              If you wish to turn it off, _ 
               remove the check from the 'View Mission Briefing' box.", _
 
                   MsgBoxStyle.Information, "Mission Briefing")
            Else
                'mymenu.CheckState = CheckState.Checked = false Then
                MsgBox("You have turned OFF the Mission Briefing. _ 
                To turn it back on, place a check mark in the 'View Mission _ 
Briefing' box.", MsgBoxStyle.Information, "Mission Briefing")
            End If
        Catch ex As Exception
            If Err.Number <> 0 Then
                errLogger(Err.Number, Err.Description, Err.Source)
            End If
            Exit Sub
        Finally
        End Try
    End Sub
 
 
 Private Sub MissionBriefingToolStripMenuItem_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
      MissionBriefingToolStripMenuItem.CheckStateChanged
        Dim mymenu As New ToolStripMenuItem
        Try
            If mymenu.CheckState = CheckState.Checked Then
                MsgBox("You have turned ON the Mission Briefing. _
              If you wish to turn it off, remove the check from the _
           'View Mission Briefing' box.", MsgBoxStyle.Information, "Mission Briefing")
            ElseIf mymenu.CheckState = CheckState.Unchecked Then
                MsgBox("You have turned OFF the Mission Briefing. _
                To turn it back on, place a check mark in the 'View Mission _
                 Briefing' box.", MsgBoxStyle.Information, "Mission Briefing")
            End If
        Catch ex As Exception
            If Err.Number <> 0 Then
                errLogger(Err.Number, Err.Description, Err.Source)
            End If
            Exit Sub
        Finally
        End Try
    End Sub
 
Private Sub PlayMissionBriefing()
        Dim MissionBriefingToolStripMenuItem As New ToolStripMenuItem
 
        Try
            If MissionBriefingToolStripMenuItem.CheckState = CheckState.Checked Then
                LaunchtheMission("mission_briefing", "mission_briefing.exe", "XXXXXXX")
   End If
 
        Catch ex As Exception
            If Err.Number <> 0 Then
                errLogger(Err.Number, Err.Description, Err.Source)
            End If
            Exit Sub
        Finally
 
        End Try
    End Sub