'form1 里面的代码
Private Sub Command1_Click()
    Form2.Show
    Form2.tv = TreeView1
End SubPrivate Sub Form_Load()
    TreeView1.Nodes.Add , , , "1、sfdasdf"
    TreeView1.Nodes.Add , , , "2、sfdasdf"
End Sub'form2里面的代码
Option Explicit
Public Property Let tv(ByVal oTv As TreeView)
    Dim node As node
    With TreeView1.Nodes
        For Each node In oTv.Nodes
            If node.Parent Is Nothing Then
                .Add , , node.Key, node.Text, node.Image, node.SelectedImage
            Else
                .Add node.Parent.Key, tvwChild, node.Key, node.Text, node.Image, node.SelectedImage
            End If
        Next
    End With
    
End Property