Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function GetNodeNestingLevel(ByVal node As TreeNode) As Integer
Dim iRetVal As Integer
If node Is Nothing Then
iRetVal = -1
Else
Do Until (node.Parent Is Nothing)
iRetVal += 1
node = node.Parent
Loop
End If
End Function