GefContextMenuItem.MakeSubmenu (method)

Makes the menu item a submenu

Syntax:

object.MakeSubmenu

Description:

The MakeSubmenu method makes the menu item into a submenu.

Example:

Sub OnPreContextMenu(oContextMenu As
GefContextMenu)

  Dim oContextMenuItem As
GefContextMenuItem

Dim oMenuItems As GefContextMenuItems

  Set oMenuItems =
oContextMenu.MenuItems

  Set oContextMenuItem = oMenuItems.Add

  oContextMenuItem.MakeSubMenu

  oContextMenuItem.Text = "Custom procedure menu
items"

  Dim oSubMenu As GefContextMenu

  Set oSubMenu =
oContextMenuItem.SubMenu

Dim oSubMenuItem As GefContextMenuItem

  Set oSubMenuItem =
oSubMenu.MenuItems.Add

  oSubMenuItem.SetActionToProcedure
"OnMyProcMenu1"

  oSubMenuItem.Text = "OnMyMenu1"
  oSubMenuItem.Checked = True
  oSubMenuItem.Translated = False

End Sub