Public Sub findNode(ByVal tn As TreeNode, ByVal name As String)
 
        For Each tnn As TreeNode In tn.Nodes
 
            If tnn.Text = name Then
                Dim t As TreeNode = tnn
                For i As Integer = tnn.Level To i = 0 Step -1
                    Try
                        t = t.Parent
                        t.Expand()
                        t.TreeView.SelectedNode = t 
                    Catch ex As Exception
                    End Try
                Next
                Try
                    tnn.Parent.Expand()
                    tnn.Expand()
                    tnn.TreeView.SelectedNode = tnn 
                    Exit Sub
                Catch ex As Exception
                End Try
            End If
            findNode(tnn, name)
        Next
    End Sub