if OpenWindow(0,0,0,400,400,"HELLO")
ButtonGadget(0,0,0,100,100,"Test")
ButtonGadget(1,100,0,100,100,"Test 2")
Repeat
  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget
    Select EventGadget()
      Case 0
        MessageBox_(0,"Hello","World",0)
      Case 1
        MessageBox_(0,"Hello1","World1",0)
    EndSelect
  EndIf
Until Event = #PB_Event_CloseWindow
Else
MessageBox_(0,"AZAZA","ERROR",0)
EndIf