TreeView + Checkboxes

[Shasha]

Драсти Вам)
подскажите каким образом поставить галочку в чекбокс в тривью на втором уровне?

-1
-2 <-поставить галочку тут что бы отметились чекбоксы
-2.1 - отсюда
-2.n досюда

[-=TsA=-]

Примерно так:

Код: Выделить всё

Private Sub TreeView1_Click()
    Dim Node As Object
    Dim Parent As String
    Parent = TreeView1.Nodes.Item.Key
    For Each Node In TreeView1.Nodes
        If Node.Parent = Parent Then
            Node.Selected = True
        End If
    Next
End Sub