Retrieves a Menu object that indicates the item's sub menu.
| Type | Description | |||
| Menu | A boolean expression that indicates the item's sub menu. |
Use the SubMenu property to add sub menus to a menu. The SubMenu property retrieves nothing if the item contains no sub menu. An item contains a sub menu if it was created by the Add(,SubMenu).
The following sample shows how to add an item of SubMenu type:
Dim m As EXPOPUPMENULibCtl.Menu
Set m = PopupMenu1.Items.Add("SubMenu", SubMenu).SubMenu
m.Add "Item 1", Default, 1
m.Add "Item 2", Default, 2
m.Add "Item 3", Default, 3