Number of Children (noted in the Text) of a Treeview control:
Return to List
Dim intChild As Integer
For i = 1 To Treeview1.Nodes.Count
strText = Treeview1.Nodes.Item(i).Text
intChild = Val(Treeview1.Nodes.Item(i).Children)
If intChild > 0 Then
strText = strText & " (" & LTrim(Str(intChild)) & ")"
Treeview1.Nodes.Item(i).Text = strText
End If
Next