EnableExplicit Procedure WinCallback(hWnd, uMsg, wParam, lParam) Select uMsg Case #WM_UNINITMENUPOPUP Debug "Menü wurde geschlossen." EndSelect ProcedureReturn #PB_ProcessPureBasicEvents EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) If CreateMenu(1, WindowID(0)) MenuTitle("File") MenuItem(1, "New") MenuItem(2, "Open") MenuItem(3, "Save") MenuItem(4, "Close") EndIf SetWindowCallback(@WinCallback()) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf