EnableExplicit Define MENUITEMINFO.MENUITEMINFO If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) If CreateMenu(1, WindowID(0)) MenuTitle("Datei") MenuItem(1, "Öffnen") MenuItem(2, "Speichern") MenuItem(3, "Beenden") EndIf MENUITEMINFO\cbSize = SizeOf(MENUITEMINFO) MENUITEMINFO\fMask = #MIIM_TYPE | #MIIM_ID MENUITEMINFO\fType = #MFT_STRING MENUITEMINFO\dwTypeData = @"Einstellungen" MENUITEMINFO\wID = 4 InsertMenuItem_(MenuID(1), 2, 0, MENUITEMINFO) Repeat Select WaitWindowEvent() Case #PB_Event_Menu Select EventMenu() Case 4 Debug "Einstellungen" EndSelect Case #PB_Event_CloseWindow End EndSelect ForEver EndIf