Можно ли вставить CheckBox в заголовок DGV - Visual Basic .NET

Public Class DGVcolumnheader
  Inherits Form
  Public Sub New()
    InitializeComponent()
  End Sub
  Private col As DataGridViewCheckBoxColumn
  Private chkBox As CheckBox
  Private Sub DGVcolumnheader_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    col = New DataGridViewCheckBoxColumn()
    col.Name = "Checkbox"
    col.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    Me.DataGridView1.Columns.Add(col)   
    chkBox = New CheckBox()
    Dim rect As Rectangle = Me.DataGridView1.GetCellDisplayRectangle(0, -1, True)
    chkBox.Size = New Size(18, 18)
    chkBox.Location = rect.Location
    AddHandler chkBox.CheckedChanged, AddressOf chkBox_CheckedChanged
    Me.DataGridView1.Controls.Add(chkBox)
  End Sub
  Private Sub chkBox_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
    For i As Integer = 0 To Me.DataGridView1.RowCount - 1
      Me.DataGridView1(0, i).Value = Me.chkBox.Checked
    Next
    Me.DataGridView1.EndEdit()
  End Sub
End Class