If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) AppendMenu_(GetSystemMenu_(WindowID(0),#False),#MF_STRING,1,"Teststring") Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf