Define MyWin.i, Event.i

MyWin = OpenWindow(#PB_Any, 412, 172, 402, 94, "PureBasic")

; Event loop
Repeat
   Event = WaitWindowEvent()
   Select Event
      Case #PB_Event_Gadget
         ; Handle any gadget events here
      Case #PB_Event_CloseWindow
         Break
   EndSelect
ForEver