Public Class ControlEx
    Inherits Control
 
    Private _color As Color = Color.Red 'Default
 
    <System.ComponentModel.Browsable(True)> _
    Public Property CColor As Color
        Set(value As Color)
            _color = value
            Me.Invalidate()
        End Set
        Get
            Return _color
        End Get
 
    End Property
 
 
    Protected Overrides Sub OnPaint _
        (e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        Using br As New SolidBrush(_color)
            e.Graphics.FillRectangle(br, e.ClipRectangle)
        End Using
 
    End Sub
End Class