手动将项目添加到Treeview。

从组件中选择Microsoft Windows公共控件6.0（SP6）

将TreeView控件添加到窗体。

将ImageList控件添加到窗体。

将一些位图添加到图像列表。

将图像列表的名称设置为Tree视图控件的Image List属性。

将此示例代码添加到表单

============================

Private Sub Form_Load()
Dim Node1 As Node, Node2 As Node
Dim Node3 As Node, Node4 As Node 
Set Node1 = tv1.Nodes.Add
tv1.Nodes(1).Text = "Node 1"
tv1.Nodes(1).Key = "Node 1"
tv1.Nodes(1).Image = "closed" 
Set Node2 = tv1.Nodes.Add("Node 1", tvwChild, "Node 2")
tv1.Nodes(2).Text = "Node 2"
tv1.Nodes(2).Key = "Node 2"
tv1.Nodes(2).Image = "leaf" 
Set Node3 = tv1.Nodes.Add("Node 1", tvwChild, "Node 3")
tv1.Nodes(3).Text = "Node 3"
tv1.Nodes(3).Key = "Node 3"
tv1.Nodes(3).Image = "closed" 
Set Node4 = tv1.Nodes.Add("Node 3", tvwChild, "Node 4")
tv1.Nodes(4).Text = "Node 4"
tv1.Nodes(4).Key = "Node 4"
tv1.Nodes(4).Image = "leaf"
End Sub 
Private Sub tv1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Image = "closed"
End Sub 
Private Sub tv1_Expand(ByVal Node As MSComctlLib.Node)
Node.Image = "open"
End Sub  

注意-打开，关闭，叶子是图像列表中图像的主要功能

From: https://bytes.com/topic/visual-basic/insights/724451-adding-items-treeview-manually