Adding Items to Treeview Manually.

[debasisdas]

Select Microsoft windows common controls 6.0 (SP6) from components
Add a TreeView control to the form.
Add a ImageList control to the form.
Add some bitmaps to the imagelist.
Set the name of image list to the Image List property of the Tree view control.

Add this sample code to the form
=============================

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
 
 

NOTE--open,closed,leaf are the Key peoperty of the images in the image list