Tree help

[hyousuf2]

i have made a tree with checkboxes, i want to write a code that on its click event the node itself get selected/deselected and if it is a parent node then all of its child should also get selected/deselected. the tree has only two levels. this is the initial code which i write

Dim nd As Node
    Set nd = Tree.Nodes.Add()
    nd.Key = "AB"
    nd.Text = "Address Book"
    nd.Tag = "HEADS"
        
    
    Set nd = Tree.Nodes.Add()
    nd.Key = "QR"
    nd.Text = "Query List"
    nd.Tag = "HEADS"