' Methoden zum suchen des TreeNode (Rekursiv)
    Function SearchNode(ByVal nodeText As String, ByVal tv As TreeView) As _
      TreeNode
        Dim foundNode As TreeNode
        For Each tn_ As TreeNode In tv.Nodes
            foundNode = _SearchNode(nodeText, tn_)
            If Not foundNode Is Nothing Then Return foundNode
        Next
        Return Nothing
    End Function
    Function _SearchNode(ByVal nodeText As String, ByVal tn As TreeNode) As _
      TreeNode
        If tn.Text = nodeText Then Return tn
        For Each tn_ As TreeNode In tn.Nodes
            If tn_.Text = nodeText Then Return tn_
        Next
    End Function
' Anwenden der Methode und markieren des gefundenen Node
TreeView1.SelectedNode = Me.SearchNode("Eigene Dateien", TreeView1)
TreeView1.Focus()
TreeView1.SelectedNode.Expand() ' erweitern des Nodes