Menus

Sometimes you may want the user to be able to select options on the menu. You may have noticed other applications using Ticks or circles next to an item to show that this option is chosen. You can do this is VB too. All you have to do is change the checked property of the menu item. Note that when a checked menu item is clicked, VB will not automatically uncheck the item. The following example will check and un-check mnuEditWordWrap and change the text in a label.

For this example, create a menu called mnuEdit, with a menu item called mnuEditWordWrap. Also add a label control to the form.

Sub mnuEditWordWrap_Click()
    If mnuEditWordWrap.Checked = True
        ' We are checked - uncheck the menu item                 mnuEditWordWrap.Checked = False
        ' Set the label text
        Label1.Caption = "No Word Wrap"
    Else
        ' We are not checked - check the menu item
        mnuEditWordWrap.Checked = True
        ' Set the label text
        Label1.Caption = "Word Wrap"
    End If
End Sub