;Autor: RASHAD

EnableExplicit

Define EventID
Define i
Define himlIcons
Define himIcons

LoadImage(0,#PB_Compiler_Home + "Examples\Sources\Data\CdPlayer.ico")
himlIcons = ImageList_Create_(16,16,#ILC_COLOR32 | #ILC_MASK,0,0)
himIcons = ImageList_Create_(16,16,#ILC_COLOR32 | #ILC_MASK,0,0)
ImageList_AddIcon_(himlIcons,ImageID(0))
ImageList_AddIcon_(himIcons,ImageID(0))

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ExplorerListGadget(1,10,40,480,200,"C:\",0)
  ButtonGadget(2,10,10,250,20,"ImageList entfernen",0)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 2
      ImageList_SetIconSize_(himlIcons,0,16)
      SendMessage_(GadgetID(1),#LVM_SETIMAGELIST,#LVSIL_SMALL,himlIcons)
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf