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