Public Class frmCheckedNodes
 
    Dim WithEvents trv As New TreeView With _
              {.Parent = Me, .Width = 200, .CheckBoxes = True, _
               .DrawMode = TreeViewDrawMode.OwnerDrawAll}
 
 
    Dim CheckedNodes As New List(Of String)
    Dim bs As New BindingSource With {.DataSource = CheckedNodes}
    Dim lbo As New ListBox With _
        {.Parent = Me, .Left = 210, .Top = 40, .DataSource = bs}
 
    Dim WithEvents btn As New Button With _
        {.Parent = Me, .Left = 210, .Text = "Checked Nodes"}
 
 
    Private Sub frmCheckedNodes_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        FillTree()
    End Sub
 
    Private Sub btn_Click(sender As Object, _
        e As System.EventArgs) Handles btn.Click
 
        CheckedNodes.Clear()
        ListCheckedNodes(trv, CheckedNodes)
        bs.ResetBindings(False)
    End Sub
 
 
    Private Sub HandleMouseDown(ByVal sender As Object, _
         ByVal e As MouseEventArgs) Handles trv.MouseDown
 
        Dim info As TreeViewHitTestInfo = trv.HitTest(e.X, e.Y)
        If (info IsNot Nothing) Then
            info.Node.Checked = Not info.Node.Checked
        End If
    End Sub
 
 
    Private Sub trv_DrawNode(sender As Object, _
        e As System.Windows.Forms.DrawTreeNodeEventArgs) Handles trv.DrawNode
 
        Dim f As Font = e.Node.NodeFont
        If f Is Nothing Then f = trv.Font
 
        Dim c As Color = Color.Black
        If e.Node.Checked Then c = Color.Red
        Using br As New SolidBrush(c)
            e.Graphics.DrawString(e.Node.Text, f, br, e.Node.Bounds.Location)
        End Using
 
    End Sub
 
 
    Private Sub FillTree()
        For i As Integer = 0 To 5
            Dim sn As TreeNode = trv.Nodes.Add(CStr(i), CStr(i))
            For k As Integer = 0 To 5
                sn.Nodes.Add(CStr(i) + CStr(k), CStr(i) & CStr(k))
            Next k
        Next i
    End Sub
 
 
    Private Sub ListCheckedNodes(ByVal trv As TreeView, _
        ByVal lst As List(Of String))
 
        For Each node As TreeNode In trv.Nodes
            If node.Checked Then
                lst.Add(node.FullPath)
            End If
 
            For Each sn As TreeNode In node.Nodes
                CheckedNodesRecursive(sn, lst)
            Next sn
        Next
    End Sub
 
 
    Private Sub CheckedNodesRecursive(ByVal tn As TreeNode, _
         ByVal lst As List(Of String))
 
        If tn.Checked Then
            lst.Add(tn.FullPath)
        End If
 
        For Each sn As TreeNode In tn.Nodes
            CheckedNodesRecursive(sn, lst)
        Next
    End Sub
 
 
End Class

    Private Sub PrintRecursive(ByVal n As TreeNode)
        Dim aNode As TreeNode
        For Each aNode In n.Nodes
            If aNode.Checked Then
                proveChecked = True
                listPath.Add(aNode.FullPath)
                filesCount += My.Computer.FileSystem.GetFiles( _
                  aNode.FullPath).Count
            End If
            PrintRecursive(aNode)
        Next
    End Sub
 
 
    ' Call the procedure using the top nodes of the treeview.
    Private Sub CallRecursive(ByVal aTreeView As TreeView)
        'If aTreeView.TopNode.Checked Then 
        '    proveChecked = True
        '    listPath.Add(aTreeView.TopNode.FullPath)
        'End If
        Dim n As TreeNode
        For Each n In aTreeView.Nodes
            PrintRecursive(n)
        Next
    End Sub

  TreeView1.Nodes.Add("Key", "Text")
 
  TreeView1.Nodes.Item("Key").Checked = True
 
  If TreeView1.Nodes.Item("Key").Checked Then
      MsgBox("Alles in Ordnung")
  End If

    Dim listpath As New List(Of String)
 
    ' Call the procedure using the top nodes of the treeview.
    Private Sub CallRecursive(ByVal aTreeView As TreeView)
        For Each node As TreeNode In aTreeView.Nodes
            If node.Checked Then
                listpath.Add(node.FullPath)
            End If
            Dim n As TreeNode
            For Each n In node.Nodes
                PrintRecursive(n)
            Next n
        Next
    End Sub
 
 
    Private Sub PrintRecursive(ByVal n As TreeNode)
        If n.Checked Then
            listpath.Add(n.FullPath)
        End If
 
        Dim aNode As TreeNode
        For Each aNode In n.Nodes
            PrintRecursive(aNode)
        Next
    End Sub

    Private Sub TreeView1_DoubleClick(sender As Object, e As System.EventArgs) _
      Handles TreeView1.DoubleClick
        'Me.TreeView1.SelectedNode.Checked = True
        UncheckAllNodes(TreeView1.Nodes, False)
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As Object, _
    ByVal e As TreeViewEventArgs) _
    Handles TreeView1.AfterSelect
        'If e.Node.Nodes.Count = 0 Then
        '    AllSubDirectories(e.Node)
        'End If
        TreeView1.SelectedNode = Nothing
    End Sub

Imports System.Windows.Forms
 
Public Class CheckedTreeView
    Inherits TreeView
 
    Public Sub New()
        MyBase.DrawMode = TreeViewDrawMode.OwnerDrawAll
        MyBase.CheckBoxes = True
    End Sub
 
 
 
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
 
        Dim info As TreeViewHitTestInfo = Me.HitTest(e.X, e.Y)
        If info IsNot Nothing AndAlso info.Node IsNot Nothing Then
            If e.X < info.Node.Bounds.X + info.Node.Bounds.Width + 4 Then
                'Click auf die Checkbox Checked oder unchecked
                info.Node.Checked = Not info.Node.Checked
            Else
                'Click auf den Node-text collapsed oder expand
                If info.Node.IsExpanded Then
                    info.Node.Collapse()
                Else
                    info.Node.Expand()
                End If
            End If
        End If
    End Sub
 
 
 
    Protected Overrides Sub OnDrawNode _
        (e As System.Windows.Forms.DrawTreeNodeEventArgs)
 
        MyBase.OnDrawNode(e)
 
        With e.Node
            Dim f As Font = .NodeFont
            If f Is Nothing Then f = Me.Font
 
            Dim c As Color = .ForeColor
            If .Checked Then c = Color.Red
            If c.A = 0 Then c = Me.ForeColor 'Knotenfarbe nicht definiert
 
            Using brfore As New SolidBrush(c), _
                brback As New SolidBrush(.BackColor), _
                p As New Pen(c, 1), _
                brTreeBack As New SolidBrush(Me.BackColor)
 
                With .Bounds
                    'Treeview Knotenhintergrund zeichnen
                    Dim nodespacerect As New Rectangle _
                        (Me.Left, .Y, Me.Width, .Height)
 
                    e.Graphics.FillRectangle(brTreeBack, nodespacerect)
 
                    'Checkbox für Knoten zeichnen
                    Dim box As New Rectangle _
                       (.X + 2, .Y + 2, .Height - 4, .Height - 4)
 
                    e.Graphics.DrawRectangle(p, box)
 
                    If e.Node.Checked Then
                        'Checkbox markieren
                        e.Graphics.DrawLine _
                              (p, .X, .Y, .X + .Height, .Y + .Height)
                        e.Graphics.DrawLine _
                              (p, .X + .Height, .Y, .X, .Y + .Height)
                    End If
 
                    'Text ausgeben (incl. Expand/Collapse-Zeichen)
                    If e.Node.Nodes.Count = 0 Then
                        e.Graphics.DrawString _
                          (e.Node.Text, f, brfore, .X + .Height + 4, .Y)
                    Else
                        'Unterknoten: kollabiert oder expandiert?
                        Dim cs As String
                        If e.Node.IsExpanded Then cs = "(-) " Else cs = "(+) "
 
                        e.Graphics.DrawString _
                           (cs & e.Node.Text, f, brfore, .X + .Height + 4, .Y)
                    End If
 
                    'ggf. Verbindungslinie zum übergeordneten Knoten zeichnen
                    If e.Node.Parent IsNot Nothing Then
 
                        Dim start As Integer = _
                            e.Node.Parent.Bounds.X + Fix(.Height \ 2)
 
                        e.Graphics.DrawLine _
                           (p, New Point(start, .Y + .Height \ 2), _
                            New Point(.X - 4, .Y + .Height \ 2))
 
                        e.Graphics.DrawLine _
                           (p, New Point(start, .Y + .Height), _
                            New Point(start, e.Node.Parent.Bounds.Y + _
                            e.Node.Parent.Bounds.Height))
                    End If
                End With
            End Using
        End With
    End Sub
 
    ''' <summary>Modus, in dem Nodes gezeichnet werden (OwnerDrawAll)</summary>
    Public Shadows ReadOnly Property Drawmode() As TreeViewDrawMode
        Get
            Return MyBase.DrawMode
        End Get
    End Property
 
    ''' <summary>zu jedem Knoten wird ein Kontrolkästchen angezeigt</summary>
    Public Shadows ReadOnly Property Checkboxes() As Boolean
        Get
            Return MyBase.CheckBoxes
        End Get
    End Property
End Class

Imports System.Windows.Forms
 
Public Class CheckedTreeView
    Inherits TreeView
 
 
    Public Sub New()
        MyBase.DrawMode = TreeViewDrawMode.OwnerDrawAll
        MyBase.CheckBoxes = True
    End Sub
 
 
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
 
        Dim info As TreeViewHitTestInfo = Me.HitTest(e.X, e.Y)
        If info IsNot Nothing AndAlso info.Node IsNot Nothing Then
            With info.Node
                If e.X > .Bounds.X - 2 And _
                    e.X < .Bounds.X + .Bounds.Height + 4 Then
                    'Click auf die Checkbox: Checked oder unchecked
                    .Checked = Not .Checked
                Else
                    'Click auf den Node-text: collapsed oder expand
                    If .IsExpanded Then
                        .Collapse()
                    Else
                        .Expand()
                    End If
                End If
            End With
        End If
    End Sub
 
 
    Protected Overrides Sub OnDrawNode _
        (e As System.Windows.Forms.DrawTreeNodeEventArgs)
 
        MyBase.OnDrawNode(e)
 
        Dim checkedcolor As Color = Color.Red
 
        If e.Node.Bounds.Y = 0 And _
            Not Me.Nodes(0) Is e.Node Then Exit Sub 'Bug abfangen
 
        With e.Node
 
            Dim f As Font = .NodeFont
            If f Is Nothing Then f = Me.Font
 
            Dim c As Color = .ForeColor
            If .Checked Then c = checkedcolor
            If c.A = 0 Then c = Me.ForeColor 'Knotenfarbe nicht definiert
 
            Using brfore As New SolidBrush(c), _
                brback As New SolidBrush(.BackColor), _
                p As New Pen(c, 1), _
                brTreeBack As New SolidBrush(Me.BackColor)
 
                With .Bounds
 
                    'Checkbox für Knoten zeichnen
                    Dim box As New Rectangle _
                       (.X + 2, .Y + 2, .Height - 4, .Height - 4)
 
                    e.Graphics.DrawRectangle(p, box)
 
                    If e.Node.Checked Then
                        'Checkbox markieren
                        e.Graphics.DrawLine _
                             (p, .X, .Y, .X + .Height, .Y + .Height)
                        e.Graphics.DrawLine _
                             (p, .X + .Height, .Y, .X, .Y + .Height)
                    End If
 
                    'Text ausgeben (incl. Expand/Collapse-Zeichen)
                    Dim cs As String
                    If e.Node.Nodes.Count = 0 Then
                        cs = ""
                    Else
                        'Unterknoten: kollabiert oder expandiert?
                        If e.Node.IsExpanded Then cs = "(-) " Else cs = "(+) "
                    End If
                    e.Graphics.DrawString _
                        (cs & e.Node.Text, f, brfore, .X + .Height + 4, .Y)
 
                    'ggf. Verbindungslinien zu übergeordneten Knoten
                    Dim n As TreeNode = e.Node
                    Dim vertical As Boolean = True
                    While n.Parent IsNot Nothing
 
                        Dim start As Integer = _
                            n.Parent.Bounds.X + .Height \ 2
 
                        If vertical Then
                            e.Graphics.DrawLine _
                                (p, New Point(start, .Y + .Height \ 2), _
                                 New Point(.X - 4, .Y + .Height \ 2))
                            vertical = False
                        End If
 
                        e.Graphics.DrawLine(p, _
                           New Point(start, .Y + .Height), _
                           New Point(start, _
                           n.Parent.Bounds.Y + n.Parent.Bounds.Height))
 
                        n = n.Parent
                    End While
                End With
            End Using
        End With
    End Sub
 
 
     ''' <summary>Modus, in dem das Control gezeichnet wird (OwnerDrawAll)</summary>
    Public Shadows Property Drawmode() As TreeViewDrawMode
        Set(value As TreeViewDrawMode)
            '
        End Set
        Get
            Return MyBase.DrawMode
        End Get
    End Property
 
    ''' <summary>zu jedem Knoten wird ein Kontrolkästchen angezeigt</summary>
    Public Shadows Property Checkboxes() As Boolean
        Set(value As Boolean)
            '
        End Set
        Get
            Return MyBase.CheckBoxes
        End Get
    End Property
 
End Class

If e.Node.Bounds.Y = 0 And _
    Not Me.Nodes(0) Is e.Node Then Exit Sub 'Bug abfangen

  If e.Node.Bounds.Width = 0 Then Exit Sub 'Bug abfangen