Namespace Forms
    Public Class DataGridViewCheckBoxColumn
 
        Inherits System.Windows.Forms.DataGridViewCheckBoxColumn
 
        Public Overrides Property CellTemplate() As _
          System.Windows.Forms.DataGridViewCell
            Get
                If TypeOf (MyBase.CellTemplate) Is _
                  System.Windows.Forms.DataGridViewCheckBoxCell Then
                    MyBase.CellTemplate = New _
                    BILib.Forms.DataGridViewCheckBoxCell
                End If
                Return MyBase.CellTemplate
            End Get
            Set(ByVal value As System.Windows.Forms.DataGridViewCell)
                MyBase.CellTemplate = value
            End Set
        End Property
 
 
 
    End Class
End Namespace

Namespace Forms
    Public Class DataGridViewCheckBoxCell
        Inherits System.Windows.Forms.DataGridViewCheckBoxCell
 
        Protected Overrides Sub Paint(ByVal graphics As _
          System.Drawing.Graphics, ByVal clipBounds As _
          System.Drawing.Rectangle, ByVal cellBounds As _
          System.Drawing.Rectangle, ByVal rowIndex As Integer, ByVal _
          elementState As System.Windows.Forms.DataGridViewElementStates, ByVal _
          value As Object, ByVal formattedValue As Object, ByVal errorText As _
          String, ByVal cellStyle As _
          System.Windows.Forms.DataGridViewCellStyle, ByVal advancedBorderStyle _
          As System.Windows.Forms.DataGridViewAdvancedBorderStyle, ByVal _
          paintParts As System.Windows.Forms.DataGridViewPaintParts)
            Windows.Forms.Cursor.Hide()
            MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, _
              elementState, value, formattedValue, errorText, cellStyle, _
              advancedBorderStyle, paintParts)
            Windows.Forms.Cursor.Show()
        End Sub
    End Class
End Namespace