EnableExplicit Define EventID If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ButtonGadget(1, 10, 10, 100, 20, "Button", 0) SendMessage_(GadgetID(1), #BM_CLICK, 0, 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_Gadget Select EventGadget() Case 1 Debug "Hey, wie hast du das denn geschafft?" EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf