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.
[COLOR=blue]Private Sub walktree()
Dim mynode as Node
Dim grandtotal as Long
For Each mynode In TreeView1.Nodes
If mynode.Children = 0 Then
grandtotal = grandtotal + 1
End If
Next
MsgBox grandtotal
End Sub[/color]