VB Code:
Dim topMenu As Crownwood.Magic.Menus.MenuControl
topMenu = New Crownwood.Magic.Menus.MenuControl()
topMenu.MdiContainer = Me
Dim MenuFile As MenuCommand = New MenuCommand("&File")
Dim MenuFileOptions As MenuCommand = New MenuCommand("&Options...", ToolbarImgLst, 3, New EventHandler(AddressOf MenuFileOptions_Click))
Dim MenuFileExit As MenuCommand = New MenuCommand("E&xit", Nothing, Nothing, New EventHandler(AddressOf MenuFileExit_Click))
MenuFile.MenuCommands.AddRange(New MenuCommand() {MenuFileOptions, MenuFileExit})
Me.Controls.Add(topMenu)