Alguem sabe como eu faço para quando clicar e node de uma treeview e seleciona todos os check filhos  desse node??

    If Node.Key = "Root" Then
        Set nodx = TreeView1.Nodes(Node.Key).Child 'RECEBE NOME DOS GRUPOS
        For Linha = 1 To TreeView1.Nodes(Node.Key).Children 'VARRE TODOS OS GRUPOS
            'segundo nivel (NOME DO GRUPO)
            nodx.Checked = Node.Checked
           
            'terceiro nivel (NOME DO PROGRAMA)
            Set NoDp = TreeView1.Nodes(nodx.Key).Child
            For Res = 1 To TreeView1.Nodes(nodx.Key).Children
                NoDp.Checked = Node.Checked

 

E assim vai.... vc tem que ir fazendo vários For para os niveis.... bem, eu pelo menos fiz assim...  se achar uma maneira + elegante poste ai para eu atualizar meu código..

 

T+