Private Sub CopyTree(Source As TreeView, Target As TreeView)
Dim nS, nT As Node
Target.Nodes.Clear
Set Target.ImageList = Source.ImageList
For Each nS In Source.Nodes
If nS.Parent Is Nothing Then
Set nT = Target.Nodes.Add(, , nS.Key, nS.Text)
Else
Set nT = Target.Nodes.Add(nS.Parent.Key, tvwChild, nS.Key, nS.Text)
End If
nT.Tag = nS.Tag
nT.Image = nS.Image
nT.Expanded = nS.Expanded
nT.Selected = nS.Selected
Next nS
SortTree Target
End Sub