Проверка всех CheckBox в TreeView

Dim i As Integer, nodx As Node
Set nodx = Node.Parent.Child
                Switch = nodx.Checked
                For i = 1 To Node.Parent.Children
               If Switch <> nodx.Checked Then Label7.Caption = "All" Else Label7.Caption = "Not All"
               
               
                MsgBox nodx.Text & nodx.Checked
               Switch = nodx.Checked
               Set nodx = nodx.Next
               Label4.Caption = Node.Text
               
                Next i

Private Sub TreeView1_NodeCheck(ByVal Node As VBCCR12.TvwNode)
    Dim vLoc
    On Error Resume Next
    Set vLoc = Node.Child.FirstSibling
    While Err.Number = 0
        vLoc.Checked = Node.Checked
        If Not vLoc.Child Is Nothing Then
            TreeView1_NodeCheck vLoc
        End If
        Err.Clear: Set vLoc = vLoc.NextSibling
    Wend
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim i As Integer, nodx As Node
Dim Switch As Boolean
Dim AllNodes As Boolean
     If Node.Children = 0 Then
          Set nodx = Node.Parent.Child
                Switch = nodx.Checked
                AllNodes = True
                
                    For i = 1 To Node.Parent.Children
                        If Switch <> nodx.Checked Then AllNodes = False
                        Switch = nodx.Checked
                        Set nodx = nodx.Next
                    Next i
                Node.Parent.Bold = AllNodes
      End If
End Sub

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim i As Integer, nodx As Node
     If Node.Children <> 0 Then 'If node has children
        Set nodx = Node.Child 'Catch first child
        For i = 1 To Node.Children 'Loop through each child
          nodx.Checked = Node.Checked 'Set as checked
          Set nodx = nodx.Next 'Catch next child
        Next 'Loop
      Else: AllChecked Node
      End If
End Sub
 
Private Sub AllChecked(Node As Node) 'Child node
Dim i As Integer, nodx As Node
Dim Switch As Boolean
Dim AllNodes As Boolean
'If Node.Parent Is Nothing Then MsgBox "root"
Set nodx = Node.Parent.Child
                Switch = nodx.Checked
                AllNodes = True
                    For i = 1 To Node.Parent.Children
                        If Switch <> nodx.Checked Then AllNodes = False
                        Switch = nodx.Checked
                        Set nodx = nodx.Next
                    Next i
                AllNodes = Not AllNodes
                Node.Parent.ForeColor = Abs(Int(AllNodes)) * vbRed
                Node.Parent.Bold = AllNodes
End Sub