' Test Nodes erstellen
Private Sub Form_Load()
 
    TreeView1.Checkboxes = True    ' Checkboxen erstellen
 
    For i = 1 To 5
        TreeView1.Nodes.Add , , "A" & i, "Node" & i
 
        For j = 1 To 2
            TreeView1.Nodes.Add "A" & i, tvwChild, , "UNode" & j
        Next j
 
    Next i
 
End Sub
 
 
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
 
    Dim oChild As Node
 
    If Node.Checked = True Then
 
        If Node.Children > 0 Then
            Node.Expanded = True
 
            With Node
                Set oChild = .Child
                Do
                  oChild.Checked = True
                  Set oChild = oChild.Next
                Loop Until oChild Is Nothing
 
            End With
 
        End If
 
    Else
 
        If Node.Children > 0 Then
            Node.Expanded = False
 
            With Node
                Set oChild = .Child
                Do
                  oChild.Checked = False
                  Set oChild = oChild.Next
                Loop Until oChild Is Nothing
 
            End With
 
        End If
 
 
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.