Sub Process_Globals
Private m1 as MenuItem
End Sub
Sub App_Start(...)
' create top level menu entry
Dim TopMenu As Menu
TopMenu.Initialize( "Top Menu", "" )
mb.Menus.Add( TopMenu )
' Add submenu
m1.Initialize( "Sub Menu", "mSubMenu" )
TopMenu.MenuItems.Add( m1 )