EnableExplicit Procedure WinCallback(hWnd, uMsg, wParam, lParam) Select uMsg Case #WM_MOVING Debug "Fenstergröße wird gerade verschoben..." Case #WM_EXITSIZEMOVE Debug "Fensterverschiebung fertig" EndSelect ProcedureReturn #PB_ProcessPureBasicEvents EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) SetWindowCallback(@WinCallback()) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf