FIX: Check Marks Work Only When Set in Top Level Menu Events

MORE INFORMATION

Steps to Reproduce Behavior

1. Start 16-bit or 32-bit Visual Basic 4.0, or if it is already running, click New Project on the File menu.
2. Use the Menu Editor to add the following menu items. Note that the Blue, Green, and Cyan should appear only if you click Color, and Color appears if you click Options. Click Menu Editor from the Tools menu.

         Caption            Name                   Index
         -------            ----                   -----
         Options          mnuOption
           Color          mnuOptionsColor
             Blue         mnuOptionsColorArray       0
             Green        mnuOptionsColorArray       1
             Cyan         mnuOptionsColorArray       2
   						

3. Copy the following code to the Code window of the Form1 form:

         Option Explicit
         Dim ncol As Integer
   
         Private Sub mnucol_Click(Index As Integer)
            ncol = Index
            BackColor = QBColor(Index + 1)
         End Sub
   
         Private Sub mnuColor_Click()
            Dim i As Integer
            For i = 0 To 2
               If i = ncol Then
                  mnuCol(i).Checked = True
               Else
                  mnuCol(i).Checked = False
               End If
            Next
         End Sub
   
         Private Sub mnuOptions_Click()
            'Uncomment the following lines for workaround
            'Dim i As Integer
            'For i = 0 To 2
               'mnucol(i).Checked = (i = ncol)
               'Next
             End Sub
   						

4. On the Run menu, click Start or press the F5 key to start the program. From the Options menu, click Color and note that a second level menu appears. Choose a color to change the background color of the form. Click Color again from the Options menu and choose another color. Click Color a third time and note that a check mark appears next to the original color you selected. Move the mouse over the previously selected color and note that a check mark appears on the correct choice.