复制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的每一个节点就是重新建节点咯，有没有直接点的办法？

Answer 2

TreeView1里面有内容,我就是想把TreeView1里面的内容（节点）复制出来,就好象复制整个控件，就不用重新再另外一个个添加节点

Answer 3

还是有办法的,用动态加载控件数组来实现.先定义TreeView(0),Index为0,
在TreeView(0)有数据之后,然后加载TreeView(i),i<>0.For Example:
Load TreeView(1)
'显示
TreeView(1).Visible 
'移动位置
TreeView(1).Top = 2000
TreeView(1).Left = 2000

Answer 4

junki(『.NET技术争霸天下』) :　这是个办法，不过我需要在不同的窗体上复制TreeView控件内容好象不行吧

Answer 5

也是一样的,在前面加窗体名称就可以了.
其实VB当前的窗体名称也可用Me来表示,只是常常被省略了.

Answer 6

恩   JUNKI的方法可以复制    可是    子对象颜色怎么和父对象不一样啊???

Answer 7

junki(『.NET技术争霸天下』) :　我的意思是在另外的窗体上复制TreeView控件内容，也就是说两个TreeView分别在不同的窗体上在Form２上：
Private Sub Form_Load()
  Load Form1.TreeView1(1)
  Form1.TreeView1(1).Top = 2000
  Form1.TreeView1(1).Left = 2000
  Form1.TreeView1(1).Visible = True
End Sub这样TreeView1(1)只在Form1上显示