复制TreeView控件？

Question

Dim NewTree As TreeViewPrivate Sub Command1_Click()
  Set NewTree = TreeView1
End Sub我要复制一个TreeView控件，就是把它的内容(包括里面的节点)也复制过来，Set NewTree = TreeView1
只是对原来的引用，并没有复制一个新的，Set NewTree = New TreeView1好象也不行，该如何写？

Answer 1

如果要复制一个全新的，而不是引用，只有把所有的节点信息遍历一遍，添加到新的treeview中去。