Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
Listview1.ListItems.Clear
Dim I As Long
For I = Node.Index + 1 To Treeview1.Nodes.Count
If Treeview1.Nodes(I).Parent = Node Then Listview1.ListItems.Add , , Treeview1.Nodes(I).Text
Next I
End Sub