EnableExplicit Define EventID If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TextGadget(1, 10, 10, 100, 2, "", #SS_ETCHEDHORZ) TextGadget(2, 10, 20, 2, 100, "", #SS_ETCHEDVERT) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf