EnableExplicit If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) SetWindowRgn_(WindowID(0), CreateRoundRectRgn_(0, 0, 500, 250, 50, 50), 0) SetWindowColor(0,RGB(0,100,255)) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf