使用VB6将缺少的节点从Treeview1添加到Treeview2

Private Sub AddMissingNodes()
    Dim node As Node
    Dim missingNode As Node
    
    For Each node In Treeview1.Nodes
        If Not NodeExists(Treeview2.Nodes, node.Text) Then
            Set missingNode = Treeview2.Nodes.Add(, , , node.Text)
            ' 可以在此处设置节点的其他属性
        End If
    Next node
End Sub

Private Function NodeExists(nodes As Nodes, text As String) As Boolean
    Dim node As Node
    
    For Each node In nodes
        If node.Text = text Then
            NodeExists = True
            Exit Function
        End If
        
        If node.Children > 0 Then
            If NodeExists(node.Child, text) Then
                NodeExists = True
                Exit Function
            End If
        End If
    Next node
    
    NodeExists = False
End Function