Private Shared Function PrintRecursive(ByVal n As TreeNode, ByVal ntext As _
  String) As TreeNode
        For Each anode As TreeNode In n.Nodes
            If anode.FullPath = ntext Then
                Return anode
            Else
                PrintRecursive(anode, ntext)
            End If
        Next
        Return Nothing
End Function
 
Public Shared Function CallRecursive(ByVal aTreeView As TreeView, ByVal _
  suchtext As String) As TreeNode
        For Each n As TreeNode In aTreeView.Nodes
            If PrintRecursive(n, suchtext).FullPath = suchtext Then
                Dim x As TreeNode = PrintRecursive(n, suchtext)
                Return x
            Else
                PrintRecursive(n, suchtext)
            End If
        Next
        Return Nothing
    End Function