EnableExplicit Define EventID Define GadgetRect.RECT If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ButtonGadget(1,100,100,100,50,"Position ermitteln",0) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 1 GetWindowRect_(GadgetID(1),@GadgetRect) MessageRequester("","X: "+Str(GadgetRect\left)+Chr(13)+"Y: "+Str(GadgetRect\top),0) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf