>#Define NodeImage_Loc "Graphics\NodeImg.ico" >#Define NodeExpand_Loc "Graphics\NodeExp.ico" >#Define NodeSelect_Loc "Graphics\NodeSel.ico" > >Procedure Init > With This > .ImageHeight = 16 > .ImageWidth = 16 > With .ListImages > .Add(,'NodeImage',LoadPicture(NodeImage_Loc)) > .Add(,'NodeExpand',LoadPicture(NodeExpand_Loc)) > .Add(,'NodeSelect',LoadPicture(NodeSelect_Loc)) > EndWith > EndWith >EndProc >Hmm, that should work if you set the properties to 16 before you load the images and if ImageList does not contain images already. I made a quick test and it worked for me.