Create on form a menu (like 'file') with a submenu (like 'open'). Change submenu index property to zero (as array).

And add follow source to form load event:

mnuSub(0).Caption = "SubItem #0"
Load mnuSub(1)
mnuSub(1).Caption = "SubItem #1"

------------------
smalig
[email protected]
smalig.tripod.com