Public Sub AddNode(ByVal Value As String, ByVal ParentValue As String, ByVal Icon As System.Drawing.Icon)
Dim ParentNode As TreeNode
Dim NewNode As New TreeNode()
NewNode.Text = Value
ilstNavigatorIcons.Images.Add(Icon)
NewNode.ImageIndex = ilstNavigatorIcons.Images.Count - 1
NewNode.SelectedImageIndex = ilstNavigatorIcons.Images.Count - 1
If ParentValue = "" Then
tvwNavigator.Nodes.Add(NewNode)
Else
For Each ParentNode In Me.tvwNavigator.Nodes
If Not NodeRecursiveSearch(ParentNode, ParentValue).Text = "NotFound" Then
Exit For
End If
Next
ParentNode.Nodes.Add(NewNode)
End If
End Sub