EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  PanelGadget(1,10,10,WindowWidth(0)-20,WindowHeight(0)-20)
  AddGadgetItem(1,0,"Item 1",0,0)
  AddGadgetItem(1,0,"Item 2",0,0)
  AddGadgetItem(1,0,"Item 3",0,0)
  AddGadgetItem(1,0,"Item 4",0,0)
  AddGadgetItem(1,0,"Item 5",0,0)
  CloseGadgetList()
  
  SetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE, GetWindowLongPtr_(GadgetID(1), #GWL_EXSTYLE) | #WS_EX_LAYOUTRTL)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf