Code: Select all
OpenWindow(0,0,0,800,500,"",#PB_Window_BorderLess|#PB_Window_Maximize)
ButtonGadget(0, 0, 0,200, 20, "Button 0")
x=WindowX(0):y=WindowY(0)
Debug y
Repeat:ev=WaitWindowEvent():Select ev
Case #PB_Event_CloseWindow:Break
EndSelect:ForEver
End