EnableExplicit

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_BorderLess|#PB_Window_ScreenCentered);Kein Rahmen eingestellt
  SetWindowLongPtr_(WindowID(0), #GWL_STYLE, #WS_CLIPSIBLINGS | #WS_VISIBLE | #WS_CAPTION | #WS_SYSMENU|#WS_SIZEBOX|#WS_MAXIMIZEBOX|#WS_MINIMIZEBOX)
  SetWindowPos_(WindowID(0), 0,0,0,0,0,#SWP_NOSIZE|#SWP_NOMOVE|#SWP_NOZORDER|#SWP_FRAMECHANGED)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf