;Autor: Perkin

EnableExplicit

Define NewImageList
Define a
Define iconadr
Define OldImageList

#TVM_SETITEMHEIGHT = 4379

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TreeGadget(1,10,10,480,230,0)
  
  NewImageList = ImageList_Create_(32, 32, #ILC_COLOR32 | #ILC_MASK, 0, 10)
  ImageList_ReplaceIcon_(NewImageList, - 1, ExtractIcon_(0, "Shell32.dll", 0))
  iconadr = ExtractIcon_(0, "Shell32.dll", 2)
  ImageList_ReplaceIcon_(NewImageList, - 1, iconadr)
  
  For a=1 To 5
    AddGadgetItem(1,-1,"Test-Item",iconadr,0)
  Next
  
  
  OldImageList = SendMessage_(GadgetID(1), #TVM_GETIMAGELIST, #TVSIL_NORMAL, 0)
  SendMessage_(GadgetID(1), #TVM_SETIMAGELIST, #TVSIL_NORMAL, NewImageList)
  ImageList_Destroy_(OldImageList)
  DestroyIcon_(iconadr)
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf