谁能告诉我！

[tyqtcq]

如何在from_load事件中写入代码让该窗体上的一Treeview控件的根结点（下有许多子结点）是弹开的（即子结点是可见的，不用通过双击根结点）？

[孙小雄]

Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C5", "Child 5")
nodX.EnsureVisible

End Sub