遍历TreeView的所有节点，将符合条件的节点不显示

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        TextBox1.Text = "节点6"
        Me.TreeView1.ExpandAll()
        '调用
        Dim Tc As TreeNodeCollection = Me.TreeView1.Nodes
        GetNode(Tc)

    End Sub

‘----------------------------------------------------------------------------------’

    Sub GetNode(ByVal Tc As TreeNodeCollection)
        Dim TreeViewCount As Integer = 0
        For Each TNode As TreeNode In Tc
            'MessageBox.Show(TNode.Text.ToString())
            If TNode.Text.ToString() = TextBox1.Text Then
                TNode.Remove()
            End If
            '这里可以加上你自己的代码。对每一个节点怎么处理。
            TreeViewCount += 1
            GetNode(TNode.Nodes)
        Next
    End Sub