ZenMenuItem.Create

Create(bsName As String,bPulldown As Boolean) As ZenMenuItem

Parameters

bsName As String

A string which defines the name of the submenu item.

Example: "Sub_1"

bPulldown As Boolean

This parameter can be set true or false without any effect.

Remarks

This function creates a new submenu item.

Sample:

Sub CreateSubmenu()

Dim zMenus As ZenMenus  'Parent object
Dim zMenu As ZenMenu	'Child object of ZenMenus
Dim zMenuItem As ZenMenuItem 'Child object of ZenMenu
Dim zMenuItem_1 As ZenMenuItem 'Child object of ZenMenu

Set zMenus = MyWorkspace.ActiveDocument.ZenMenus

'Select a context or main menu
Set zMenu = zMenus.Item(0)
'Select the first menu item in the main menu
Set zMenuItem = zMenu.Item(0)
'Create a new submenu
Set zMenuItem_1 = zMenuItem.Create("Test", False)

End Sub

See Also

ZenMenuItem