DataGridViewのヘッダーにチェックボックス

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.ComponentModel

Public Class DataGridViewCheckBoxColumnEx
    Inherits DataGridViewCheckBoxColumn

    Public Sub New()
        MyBase.DefaultHeaderCellType = GetType(DataGridViewCheckBoxColumnExHeaderCell)
    End Sub

    <EditorBrowsable(EditorBrowsableState.Never), Browsable(False), _
    DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
    Public Shadows ReadOnly Property DefaultHeaderCellType() As Type
        Get
            Return GetType(DataGridViewCheckBoxColumnExHeaderCell)
        End Get
    End Property
End Class

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Diagnostics
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles
Imports System.Collections
Imports System.Reflection

Public Class DataGridViewCheckBoxColumnExHeaderCell
    Inherits DataGridViewColumnHeaderCell

    Public Sub New(ByVal oldHeaderCell As DataGridViewColumnHeaderCell)


        Me.ContextMenuStrip = oldHeaderCell.ContextMenuStrip
        Me.ErrorText = oldHeaderCell.ErrorText
        Me.Tag = oldHeaderCell.Tag
        Me.ToolTipText = oldHeaderCell.ToolTipText
        Me.Value = oldHeaderCell.Value
        Me.ValueType = oldHeaderCell.ValueType

        If oldHeaderCell.HasStyle Then
            Me.Style = oldHeaderCell.Style
        End If

        Dim headerCell As DataGridViewCheckBoxColumnExHeaderCell = _
            TryCast(oldHeaderCell, DataGridViewCheckBoxColumnExHeaderCell)
        If headerCell IsNot Nothing Then

        End If
    End Sub

    Public Sub New()

    End Sub

    Public Overrides Function Clone() As Object
        Return New DataGridViewCheckBoxColumnExHeaderCell(Me)
    End Function

    Protected Overrides Sub OnDataGridViewChanged()

        If Me.DataGridView Is Nothing Then
            Return
        End If
        MyBase.OnDataGridViewChanged()

    End Sub 'OnDataGridViewChanged

    Protected Overrides Sub Paint( _
    ByVal graphics As Graphics, _
    ByVal clipBounds As Rectangle, _
    ByVal cellBounds As Rectangle, _
    ByVal rowIndex As Integer, _
    ByVal cellState As DataGridViewElementStates, _
    ByVal value As Object, _
    ByVal formattedValue As Object, _
    ByVal errorText As String, _
    ByVal cellStyle As DataGridViewCellStyle, _
    ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, _
    ByVal paintParts As DataGridViewPaintParts)

        ' Use the base method to paint the default appearance. 
        MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, _
            cellState, value, formattedValue, errorText, cellStyle, _
            advancedBorderStyle, paintParts)


    End Sub 'Paint

End Class