Private Sub Command1_Click()
For i = TreeView1.Nodes.Count To 1 Step -1
If TreeView1.Nodes(i).Checked Then
TreeView1.Nodes.Remove (i)
End If
Next
End Sub
TreeView1.Nodes.Add "root", tvwChild, "key2", "bb"
TreeView1.Nodes.Add "key2", tvwChild, "key21", "ddd"
TreeView1.Nodes.Add "key2", tvwChild, "key211", "eee"
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
End Sub