Drop Menu Class Members

AddCommand

Adds new Command Item to this menu.

AddPopup

Adds new Popup Menu as a subitem to this menu.

AddSeparator

Adds new Separator to this menu.

Count

Returns count of items in this menu. This property is read-only.

Item( 1-based index )

Item( item name )

Returns menu item object by index or by name.

Example of adding menu items:

With .Menu
With .AddCommand
.Caption = "USD"
.Tag = "Currency.USD"
.Image = "Dollar"
.OnAction = "OnSelectCurrency"
End With
With .AddCommand
.Caption = "EUR"
.Tag = BTN_EURO
.Image = "Euro"
.OnAction = "OnSelectCurrency"
End With
.AddSeparator
With .AddPopup
.Caption = "Currency Settings ..."
.Image = "Options"
With .AddCommand
.Caption = "Enable\Disable EURO"
.Image = "Pencil"
.Tag = BTN_ENABLE_EURO
.OnAction = "OnEnableEuroCurrency"
End With
End With
End With