NestLevel
Function NodeNestingLevel(ByVal Node As Node) As Integer Do Until (Node.Parent Is Nothing) NodeNestingLevel = NodeNestingLevel + 1 Set Node = Node.Parent Loop End Function
Function NodeNestingLevel(ByVal Node As Node) As Integer
Do Until (Node.Parent Is Nothing)
NodeNestingLevel = NodeNestingLevel + 1
Set Node = Node.Parent
Loop
End Function
(nestlevel.html)- by Paolo Puglisi - Modifica del 25/3/2019