¿Cómo ampliar la vista de árbol en VB6.0?

Opción ExplicitPrivate Sub Command1_Click()

Dim Nd As Node

Establecer Nd = TreeView1.Nodes.Add(, , "root", "Root Node" )

Nd.Expanded = True

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd1", "child node 1")

Establecer Nd = TreeView1.Nodes.Add("root", tvwChild, "nd2", "nodo secundario 2")

Establecer Nd = TreeView1.Nodes.Add("root", tvwChild, " nd3", "nodo secundario 3")

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd4", "nodo secundario 4")

End Sub