主题：[求助]一个treeview的所有节点复制成另一个treeview的一个子节点

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nodes As new Dictionary(of String ,Winform.TreeNode)
Dim pd As WinForm.TreeNode = 目标节点
For Each nd As WinForm.TreeNode In trv1.allNodes
    If nd.Level = 0 Then
        nodes.add(nd.name, pd.Nodes.Add(nd.fullname,nd.text,nd.IconFile))
    Else
        Dim pm As String = nd.FullName.SubString(0,nd.FullName.LastIndexOf("\"))
        nodes.add(nd.fullname ,nodes(pm).nodes.Add(nd.name,nd.text,nd.IconFile))
    End If
Next

谢谢,狐狸爸爸!根据指点,在全局做的

Public Sub CopyTreeToTreeNode(byval SorcTrv As  WinForm.TreeView,byval  DestTrv As  WinForm.TreeView,Optional byval TrvNodeName As String ="" ,Optional byval TrvLevel As Integer=1,Optional byval TrvClear As  Boolean=True)
 'Dim SorcTrv As WinForm.TreeView = e.Form.Controls("TreeView1")
 'Dim DestTrv As WinForm.TreeView = e.Form.Controls("TreeView2")
  Dim nodes As new Dictionary(of String ,Winform.TreeNode)
  Dim pd As WinForm.TreeNode
  For Each pd In DestTrv.allNodes
     If pd.Level = TrvLevel AndAlso pd.Name=TrvNodeName Then Exit For
     PD=Nothing
  Next
  If PD IsNot Nothing Then
     If TrvClear Then PD.Nodes.Clear
     For Each nd As WinForm.TreeNode In SorcTrv.allNodes
       If nd.Level = 0 Then 'AndAlso nd.Name= TrvNodeName Then
         nodes.add(nd.name, PD.nodes.Add(nd.FullName,nd.text,nd.IconFile))
       Else
         Dim pm As String = nd.FullName.SubString(0,nd.FullName.LastIndexOf("\"))
         nodes.add(nd.fullname ,nodes(pm).nodes.Add(nd.name,nd.text,nd.IconFile))
      End If
    Next
  End If
' 你改一行代码,就可以复制到对应的节点
End Sub

引用后产生结果如下,是我要的