Code: Select all
OpenWindow(0, 0, 0, 100, 100, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
Repeat
Event = WaitWindowEvent(1000)
Select Event
Case #PB_Event_CloseWindow
CloseWindow(0)
Default
Debug EventWindow()
EndSelect
ForEver
