#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