Private Sub ClearNotes(ByVal vNodes As Nodes, ByVal vParentNode As Node)
Dim i As Long
i = vParentNode.Children
If i <= 0 Then
vTreeView.Nodes.Remove vParentNode
Else
For i = 0 To i
Call ClearNotes(vTreeView, vParentNode.Child)
Next
vTreeView.Nodes.Remove vParentNode
End If
End Sub
Private Sub Form_Load()
For i = 1 To 10
a = "main" + Str(i)
TreeView1.Nodes.Add , , , a
TreeView1.Nodes(i).Expanded = True
For j = 1 To 10
TreeView1.Nodes.Add i, 4, , "sub" + Str(i) + "-" + Str(j)
Next
Next
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim nodChildCount As Long
Dim nodChildIndex As Long
nodChildCount = Node.Children
For i = 1 To nodChildCount
nodChildIndex = Node.Child.Index
TreeView1.Nodes.Remove (nodChildIndex)
Next
End Sub