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

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

        Dim headerStr As String = "文字列"
        Dim cFont As Font = SystemFonts.DefaultFont
        chkBox.Text = headerStr
        chkBox.Checked = True 'System.Windows.Forms.VisualStyles.CheckBoxState.CheckedNormal

        Dim locX As Integer = cellBounds.X + (cellBounds.Width / 2)
        Dim locY As Integer = cellBounds.Y + (cellBounds.Height - 13) / 2
        Dim checkBoxLocation As New Point(locX, locY)

        Dim recX As Integer = cellBounds.X + 16
        Dim recY As Integer = cellBounds.Y
        Dim recW As Integer = cellBounds.Width - 16
        Dim recH As Integer = cellBounds.Height

        Dim checkBoxTextRect As New Rectangle(recX, recY, recW, recH)
        'テキストの表示法
        Dim checkBoxTextFormat As TextFormatFlags = _
            TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter
        'チェックされた普通の状態とする
        CheckBoxRenderer.DrawCheckBox(graphics, checkBoxLocation, checkBoxTextRect, _
            chkBox.Text, chkBox.Font, checkBoxTextFormat, False, _
            chkBox.Checked)

Imports System.Windows.Forms
Imports System.ComponentModel

'' カスタム列ヘッダセル
Public Class DataGridViewCustomCheckBoxHeaderCell
    Inherits DataGridViewColumnHeaderCell

    Private _checkState As Boolean

    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)

        '' 既存のヘッダーは背景や枠だけ描画すればいいので、テキストは空指定
        MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, _
            cellState, String.Empty, String.Empty, String.Empty, cellStyle, _
             advancedBorderStyle, paintParts)

        '' 文字描画の必要領域を求める
        Dim drawTextSize As SizeF
        drawTextSize = graphics.MeasureString(formattedValue, cellStyle.Font)

        '' チェックボックス本体の描画位置を求める
        Dim location As New Point
        location.X = cellBounds.X + (cellBounds.Width - drawTextSize.Width) / 2 - 14
        location.Y = cellBounds.Y + (cellBounds.Height - 12) / 2

        '' チェック状態からCheckBoxStateを求める
        Dim checkBoxState As VisualStyles.CheckBoxState
        checkBoxState = IIf(Me._checkState, _
            VisualStyles.CheckBoxState.CheckedNormal, VisualStyles.CheckBoxState.UncheckedNormal)

        '' チェックボックスを描画
        System.Windows.Forms.CheckBoxRenderer.DrawCheckBox( _
            graphics, location, cellBounds, formattedValue, cellStyle.Font, False, checkBoxState)
    End Sub

    Protected Overrides Sub OnClick(ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
        _checkState = _checkState Xor True
        MyBase.OnClick(e)
        Me.RaiseCheckBoxCheckedChanged(EventArgs.Empty)
    End Sub
    Protected Overrides Sub OnDoubleClick(ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
        _checkState = _checkState Xor True
        MyBase.OnDoubleClick(e)
        Me.RaiseCheckBoxCheckedChanged(EventArgs.Empty)
    End Sub

    Private Sub RaiseCheckBoxCheckedChanged(ByVal e As EventArgs)
        '' チェックボックスの状態(On/Off)が変化した時の処理は以下に記述

        '' サンプル
        MessageBox.Show(String.Format("チェックボックスが[{0}]になりました。", _
            IIf(Me._checkState, "On", "Off")), "", MessageBoxButtons.OK)
    End Sub

End Class

'' カスタム列ヘッダクラスを使用するカスタム列クラス
Public Class DataGridViewCustomCheckBoxHeaderColumn
    Inherits DataGridViewTextBoxColumn

    Public Sub New()
        MyBase.DefaultHeaderCellType = GetType(DataGridViewCustomCheckBoxHeaderCell)

        '' ソート方向を示すグリフ表示をさせないためにソート不可（コード上からのソートのみ）に設定
        Me.SortMode = DataGridViewColumnSortMode.NotSortable
    End Sub

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

End Class

Public Class DataGridViewCustomCheckBoxHeaderColumn

    Inherits DataGridViewTextBoxColumn

Public Class DataGridViewCustomCheckBoxHeaderColumn

    Inherits DataGridViewCheckBoxColumn

        Me.Selected = Me._checkState

        MyClass.Selected = Me._checkState

        MyBase.Selected = Me._checkState

    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, 

               ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

               Handles DataGridView1.CellClick

        If DataGridView1.Columns(e.ColumnIndex).Name = "Column1" Then

            MessageBox.Show(String.Format("チェックボックスが[{0}]になりました。", _

                IIf(Me.Column1.Selected, "On", "Off")), 

                "DataGridView1_CellClick", MessageBoxButtons.OK)

        End If



    End Sub



    Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As 

              System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) 

              Handles DataGridView1.ColumnHeaderMouseClick

        If DataGridView1.Columns(e.ColumnIndex).Name = "Column1" Then

            MessageBox.Show(String.Format("チェックボックスが[{0}]になりました。", _

                IIf(Me.Column1.Selected, "On", "Off")),

               "DataGridView1_ColumnHeaderMouseClick", MessageBoxButtons.OK)

        End If



    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, 

         ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) 

          Handles DataGridView1.CellClick

        If e.RowIndex >= 0 Then

            If DataGridView1.Columns(e.ColumnIndex).Name = "Column1" Then

                MessageBox.Show(String.Format("チェックボックスが[{0}]になりました。", _

                    IIf(Me.Column1.Selected, "On", "Off")), "DataGridView1_CellClick", MessageBoxButtons.OK)

            End If

        End If



    End Sub

        MyBase.OnClick(e)
        Me.RaiseCheckBoxCheckedChanged(EventArgs.Empty)

【クラス側】
    Public Property Status() As Boolean
        Get
            Return _checkState
        End Get
        Set(ByVal value As Boolean)
            _checkState = value
        End Set
    End Property

【Form側】
    Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As System.Object, 
          ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs)
          Handles DataGridView1.ColumnHeaderMouseClick
        If DataGridView1.Columns(e.ColumnIndex).Name = "Column1" Then
            Dim cell As DataGridViewCustomCheckBoxHeaderCell = _
                DirectCast(DataGridView1.Columns(e.ColumnIndex).HeaderCell,  _
                DataGridViewCustomCheckBoxHeaderCell)

            Console.WriteLine("ROWS=" & DataGridView1.RowCount)
            Dim flag As Boolean = False
            flag = cell.Status
            Dim dRow As DataGridViewRow
            For Each dRow In DataGridView1.Rows
                dRow.Cells(0).Value = flag
                dRow.Cells(2).Value = flag
                dRow.Cells(3).Value = flag
            Next
        End If

    End Sub

    Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As System.Object,
    　　　 ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs)
    　　　 Handles DataGridView1.ColumnHeaderMouseClick

        chk_Click()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    　　　 Handles Button1.Click
        chk_Click()
    End Sub

    Dim flag1 As Boolean = False
    Private Sub chk_Click()
        Console.WriteLine("ROWS=" & DataGridView1.RowCount)
        flag1 = flag1 Xor True
        Dim dRow As DataGridViewRow
        For Each dRow In DataGridView1.Rows
            dRow.Cells(0).Value = flag1
            dRow.Cells(2).Value = flag1
            dRow.Cells(3).Value = flag1
        Next
    End Sub