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
                dim tn as TreeNode = PrintRecursive(anode, ntext)
                if tn isnot Nothing then
                    return tn ' hier wird jetzt abgebrochen, wenn ein Child 
                    ' gefunden wurde
                End If
            End If
        Next
        Return Nothing
End Function