BackColor Property

Question

I have created a User Control similar to a Button, but inheriting directly from Control. I have had to establish many of my own properties and and override some of the existing ones. However, there appears to be a problem with the BackColor property. I cannot get this to change when I put the User Control on a form under any circumstances. I have tried overriding the existing BackColor property and creating one of my own but even that doesn't work. I am at a loss. The property shows up in designer, but nothing affects it. I am sure I am missing something obvious, but what? Code for the control is shown below, in case it's any help:

Imports System.Windows.Forms

Imports System.Drawing

Imports System.ComponentModel

Public Class DoubleTextButton

    Inherits Control

    Private text1 As String = "1"

    Private text2 As String = "2"

    Private font1 As Font = New Font("MicrosoftSansSerif", 8)

    Private font2 As Font = New Font("MicrosoftSansSerif", 8)

    Private foreclr1 As Color = Color.Black

    Private foreclr2 As Color = Color.Black

    Private align1 As ContentAlignment = ContentAlignment.MiddleCenter

    Private align2 As ContentAlignment = ContentAlignment.MiddleCenter

    Private locpt1 As New Point(0, 0)

    Private locpt2 As New Point(ClientRectangle.Width / 2, 0)

    Private asize As New Size(ClientRectangle.Width / 2, ClientRectangle.Height)

    Private rect1 As New Rectangle(locpt1, asize)

    Private rect2 As New Rectangle(locpt2, asize)

    'Private bkcolor As Color = Color.White

    Private flatapp As ButtonState = ButtonState.Normal

    <System.ComponentModel.Browsable(False)> _

    <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _

    Public Overrides Property Text As String

        Get

            Return MyBase.Text

        End Get

        Set(value As String)

            MyBase.Text = value

        End Set

    End Property

    <System.ComponentModel.Browsable(False)> _

   <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _

    Public Overrides Property Font As Font

        Get

            Return MyBase.Font

        End Get

        Set(value As Font)

            MyBase.Font = value

        End Set

    End Property

    <System.ComponentModel.Browsable(False)> _

    <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _

    Public Overrides Property ForeColor As Color

        Get

            Return MyBase.ForeColor

        End Get

        Set(value As Color)

            MyBase.ForeColor = value

        End Set

    End Property

    <Category("Text Data"), _

    Description("Describes the font of the left side text.")> _

        Public Property FontOne() As Font

        Get

            Return font1

        End Get

        Set(value As Font)

            font1 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("Describes the font of the right side text.")> _

    Public Property FontTwo() As Font

        Get

            Return font2

        End Get

        Set(value As Font)

            font2 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("The content of the left side text.")> _

    Public Property TextOne() As String

        Get

            Return text1

        End Get

        Set(value As String)

            text1 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("The content of the right side text.")> _

    Public Property TextTwo() As String

        Get

            Return text2

        End Get

        Set(value As String)

            text2 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("Describes the color of the left side text.")> _

    Public Property ForeColorOne() As Color

        Get

            Return foreclr1

        End Get

        Set(value As Color)

            foreclr1 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("Describes the color of the right side text.")> _

    Public Property ForeColorTwo() As Color

        Get

            Return foreclr2

        End Get

        Set(value As Color)

            foreclr2 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("The alignment of the text in relation to the left side of the button.")> _

    Public Property TextAlignOne() As ContentAlignment

        Get

            Return align1

        End Get

        Set(value As ContentAlignment)

            align1 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Text Data"), _

    Description("The alignment of the text in relation to the right side of the button.")> _

    Public Property TextAlignTwo() As ContentAlignment

        Get

            Return align2

        End Get

        Set(value As ContentAlignment)

            align2 = value

            Me.Invalidate()

        End Set

    End Property

    <Category("Appearance"), _

    Description("Represents the physical appearance of the button.")>

    Public Property FlatAppearance() As ButtonState

        Get

            Return flatapp

        End Get

        Set(value As ButtonState)

            flatapp = value

            Me.Invalidate()

        End Set

    End Property

    Protected Overrides Sub OnPaint(e As PaintEventArgs)

        Me.OnPaint(e)

        Dim g As Graphics = Me.CreateGraphics

        Dim locpt1 As New Point(0, 0)

        Dim locpt2 As New Point(ClientRectangle.Width / 2, 0)

        Dim asize As New Size(ClientRectangle.Width / 2, ClientRectangle.Height)

        Dim rect1 As New Rectangle(locpt1, asize)

        Dim rect2 As New Rectangle(locpt2, asize)

        

        Dim format1 As StringFormat = GetStringFormatFromContentAlignment(Me.align1)

        Dim format2 As StringFormat = GetStringFormatFromContentAlignment(Me.align2)

        Dim brush1 As Brush

        Dim brush2 As Brush

        brush1 = New SolidBrush(foreclr1)

        brush2 = New SolidBrush(foreclr2)

        ControlPaint.DrawButton(e.Graphics, Me.ClientRectangle, flatapp)

        e.Graphics.DrawString(Me.text1, font1, brush1, rect1, format1)

        e.Graphics.DrawString(Me.text2, font2, brush2, rect2, format2)

    End Sub

    Private Function GetStringFormatFromContentAlignment(ca As ContentAlignment) As StringFormat

        Dim format As New StringFormat()

        Select Case (ca)

            Case ContentAlignment.TopCenter

                format.Alignment = StringAlignment.Center

                format.LineAlignment = StringAlignment.Near

            Case ContentAlignment.TopLeft

                format.Alignment = StringAlignment.Near

                format.LineAlignment = StringAlignment.Near

            Case ContentAlignment.TopRight

                format.Alignment = StringAlignment.Far

                format.LineAlignment = StringAlignment.Near

            Case ContentAlignment.MiddleCenter

                format.Alignment = StringAlignment.Center

                format.LineAlignment = StringAlignment.Center

            Case ContentAlignment.MiddleLeft

                format.Alignment = StringAlignment.Near

                format.LineAlignment = StringAlignment.Center

            Case ContentAlignment.MiddleRight

                format.Alignment = StringAlignment.Far

                format.LineAlignment = StringAlignment.Center

            Case ContentAlignment.BottomCenter

                format.Alignment = StringAlignment.Center

                format.LineAlignment = StringAlignment.Far

            Case ContentAlignment.BottomLeft

                format.Alignment = StringAlignment.Near

                format.LineAlignment = StringAlignment.Far

            Case ContentAlignment.BottomRight

                format.Alignment = StringAlignment.Far

                format.LineAlignment = StringAlignment.Far

        End Select

        Return format

    End Function

End Class