As ever II suspect you have not actually giveren us your full requirement, but an answer to the request you have made might be
Code:
[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]
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.