Code: Select all
Procedure Click()
ResizeWindow(0, 100, 100, #PB_Ignore, #PB_Ignore)
EndProcedure
If OpenWindow(0, 0, 0, 222, 200, "ButtonGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "Standard Button")
BindGadgetEvent(0, @Click())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf