;Autor: Mr.L EnableExplicit Define EventID Define ID ;LoadImage(1,"...",0) CreateImage(1,16,16,32) If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) If CreateMenu(1,WindowID(0)) MenuTitle("File") MenuItem(1,"Cut") MenuItem(2,"Copy") MenuItem(3,"Paste") MenuBar() ID = OpenSubMenu("Options") SetMenuItemBitmaps_(MenuID(1),ID,#MF_BYCOMMAND,ImageID(1),ImageID(1)) MenuItem(4,"Window...") MenuItem(5,"Gadget...") CloseSubMenu() MenuBar() MenuItem(6,"Test-Item") EndIf Repeat EventID=WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf