GefContextMenuItem.MakeSeparator (method)

Makes this item appear as a horizontal line in the menu.

Syntax:

object.MakeSeparator

Description:

The MakeSeparator method makes appear as a horizontal line in the menu.

Example:

Sub OnPreContextMenu(oContextMenu As
GefContextMenu)

  Dim oContextMenuItem As
GefContextMenuItem

Dim oMenuItems As GefContextMenuItems

  Set oMenuItems =
oContextMenu.MenuItems

  Set oContextMenuItem = oMenuItems.Add

  oContextMenuItem.MakeSeparator

  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 = "OnMyProcMenu1"
  oSubMenuItem.Checked = True
  oSubMenuItem.Translated = False
End Sub