Change a check box's tick color

Public Class myCheckBox
 
    Inherits CheckBox
 
#Region "Properties"
    Private _tickColor As Color = Color.Yellow
    Public Property tickColor() As Color
        Get
            Return _tickColor
        End Get
        Set(ByVal value As Color)
 
            _tickColor = value
 
        End Set
    End Property
#End Region
 
 
    Private Sub myCheckBox_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Const BOX_LEFT As Integer = 1
        Const BOX_SIZE As Integer = 11
 
        Dim boxTop As Integer = CInt(Me.Height / 2) - CInt(BOX_SIZE / 2)
        Dim r As New Rectangle(BOX_LEFT, boxTop, BOX_SIZE, BOX_SIZE)
 
        Dim br As New SolidBrush(_tickColor)
        e.Graphics.FillRectangle(br, r)
 
        If Me.Checked Then
            Const CHECK_TEXT As String = "" 'checkmark from the Wingdings font
            e.Graphics.DrawString(CHECK_TEXT, New Font("wingdings", Me.Font.Size), Brushes.Black, New Point(1, boxTop))
        End If
    End Sub
End Class