通过下面的一段代码构造树和子树的内容，但是运行时出现：“ImageList必须初始化”的错误！

而我并没有使用ImageList控件，请问这是怎么回事？谢谢了！

代码如下：

For i1 = 0 To 6
        Set no1 = TreeView1.Nodes.Add(, , , root(i1), 2)
        no1.Tag = root(i1)
        
        For i2 = 0 To 5
            If childs(i1, i2) = "" Then
                Exit For
            End If
            Set no2 = TreeView1.Nodes.Add(no1.Index, tvwChild, , childs(i1, i2), 1)
            no2.Tag = childs(i1, i2)
            no2.ForeColor = vbBlue
        Next
    Next

你没打算加图标为什么又在Nodes.Add后面加了图标索引 TreeView1.Nodes.Add(no1.Index, tvwChild, , childs(i1, i2), 1) '这最后一个1代表图标索引。

我加了个imagelist之后，要怎么设置它的属性，才能算是初始化呢？

把TreeView的Icons 、 SmallIcons　设置为你添加的ImageList控件 Icons、SmallIcons 属性

返回或设置与 ListView 控件中图标视图和小图标视图关联的 ImageList 控件。

语法

object.Icons [= imagelist]

object.SmallIcons [= imagelist]

Icons，SmallIcons 属性的语法包括下述部分：

部分 描述 object 对象表达式，其值是 ListView 控件。 imagelist 对象表达式，其值是 ImageList 控件。

说明

如果要在运行时将 ImageList 控件与 ListView 控件关联，则请将这些属性设置为期望的 ImageList 控件。

ListView 控件中的每个 ListItem 对象也都具有 Icon 和 SmallIcon 属性，它们索引 ListImage 对象并决定将显示哪个图象。

将 ImageList 与 ListView 控件关联后，就可在过程中使用 Index 或 Key 属性值引用 ListImage 对象。