Private Function Tiefe(ByRef node As TreeNode) As Integer
        Dim i As Integer = 0
        While (Not (node.Parent Is Nothing))
            i += 1
            node = node.Parent
        End While
        Tiefe = i
    End Function