' ----------
' Code
' ----------
Private Sub FindNode(NodeText As String)
Dim TreeNode As Node
For Each TreeNode In TreeView.Nodes
If TreeNode.Text = NodeText Then
lNod = TreeNode
TreeNode.Selected = True
TreeView.SetFocus
Exit Sub
End If
Next
End Sub
this does not work for a tree with 2 or more levels, because code is now following inside.
The above code not works for a tree with 2 or more levels