EnableExplicit

Define x
Define y

;LoadImage(1,"...")
CreateImage(1,32,32)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Überschrift",0,0)
  SetGadgetAttribute(1,#PB_ListIcon_DisplayMode,#PB_ListIcon_LargeIcon)
 
  AddGadgetItem(1,-1,"Item 1",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 2",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 3",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 4",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 5",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 6",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 7",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 8",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 9",ImageID(1),0)
  AddGadgetItem(1,-1,"Item 10",ImageID(1),0)
  
  x = 100
  y = 50
  SendMessage_(GadgetID(1), #LVM_SETICONSPACING, 0, y * 65536 + x)
 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf