Option Explicit

Private Sub Form_Load()

Dim i As Integer
Dim j As Integer

    With Me.TreeView1
    .Checkboxes = False
    .LabelEdit = tvwManual
    .LineStyle = tvwRootLines
    .SingleSel = True
    .Nodes.Add , , "root", "root"
    
For i =  1  To  10 
    .Nodes.Add "root", tvwChild, "c_" & i, "node " & i
    For j =  1  To  20 
        .Nodes.Add "c_" & i, tvwChild, "c_" & i & "_v_" & j, "node " & j
    Next j
Next i

    .Nodes("root").Expanded = True
    .Nodes("root").Selected = True

    End With

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim s As String
    
    s = Node.Key
    If InStr( 1 , s, "_v_") =  0  And s <> "root" Then
        Node.Expanded = False
    End If
    
End Sub