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 ' 
                        ' lNode.TreeView.SelectedNode = lNode
                    Catch ex As Exception
                    End Try
                Next
                Try
                    tnn.Parent.Expand()
                    tnn.Expand()
                    tnn.TreeView.SelectedNode = tnn ' 
                    ' lNode.TreeView.SelectedNode = lNode
                    Exit Sub
                Catch ex As Exception
                End Try
            End If
            findNode(tnn, name)
        Next
    End Sub