VB6.0那個treeview怎麽讓他顯示出來就是展開的呀

Option ExplicitPrivate Sub Command1_Click()

Dim Nd As Node

Set Nd = TreeView1.Nodes.Add(, , "root", "根節點")

Nd.Expanded = True

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd1", "子節點1")

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd2", "子節點2")

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd3", "子節點3")

Set Nd = TreeView1.Nodes.Add("root", tvwChild, "nd4", "子節點4")

End Sub