Module Extensions
 
   <Extension()> _
   Public Function Approach(TV As TreeView, NodePath As String) As TreeNode
      Return TV.Nodes.Approach(NodePath.Split(New String() {TV.PathSeparator}, _
        StringSplitOptions.None))
   End Function
 
   <Extension()> Public Function Approach(Nodes As TreeNodeCollection, _
     PathSegments As IList(Of String)) As TreeNode
      Dim Nd As TreeNode = Nothing, I As Integer
      For I = 0 To PathSegments.Count - 1
         Dim tmp = Nodes.ByText(PathSegments(I))
         If tmp Is Nothing Then Exit For
         Nd = tmp
         Nodes = Nd.Nodes
      Next
      Return Nd
   End Function
 
   <Extension()> _
   Public Function ByText(Nodes As TreeNodeCollection, text As String) As _
   TreeNode
      For Each nd As TreeNode In Nodes
         If String.Compare(nd.Text, text, True) = 0 Then Return nd
      Next
      Return Nothing
   End Function

(Rechtschreibfehler urheberrechtlich geschützt)