Code: Select all
If OpenWindow(0, 0, 0, 400, 300, "MenuItem on Menu-Bar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget)
If CreateMenu(0, WindowID(0))
MenuItem(1, "1")
MenuTitle("a>")
MenuItem(2, "2")
MenuItem(3, "3")
MenuTitle("b>")
MenuItem(4, "4")
MenuItem(5, "5")
;********
CloseSubMenu()
MenuItem(6, "6");as MenuItem(1, "1")
;********
MenuTitle("c>")
MenuItem(7, "7")
MenuItem(8, "8")
EndIf
Repeat :a=WaitWindowEvent()
If a=#PB_Event_Menu:Debug EventMenu():EndIf
Until a=#PB_Event_CloseWindow
EndIf