Dim l As LongFor l = 1 To treeView1.Nodes.Count treeView2.Add treeView2.Nodes(l) = treeView1.Nodes(l)Next