Как правильно объявить цветовую константу

Private Const clr_background As Color = Color.Red

e.Graphics.DrawRectangle(New Pen(Brushes.Red, 2), e.AffectedBounds)

Class CToolStripRenderer    'https://msdn.microsoft.com/ru-ru/library/system.windows.forms.toolstriprenderer(v=vs.100).aspx
 
    Inherits ToolStripRenderer
 
    Public clrBorder As Color = Color.Red
 
    Protected Overrides Sub OnRenderImageMargin(ByVal e As ToolStripRenderEventArgs)
        'рисуем рамку области картинок
        'e.Graphics.DrawRectangle(New Pen(Brushes.Red, 5), e.AffectedBounds)  'так было 
        e.Graphics.DrawRectangle(New Pen(Brushes.clrBorder, 5), e.AffectedBounds)   'так сделал
    End Sub
End Class

Private Shared ReadOnly clr_background As Color = Color.Red

    Private my_color As Color = Color.Black
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawRectangle(New Pen(my_color), 0, 0, 100, 100)
    End Sub

e.Graphics.DrawRectangle(New Pen(My.Settings.my_settings_color), 100, 100, 100, 100)

my_settings_color

Dim my_color as System.Drawing.Brush

    Private my_color As Color = Color.Black
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        'e.Graphics.DrawRectangle(New Pen(my_color), 0, 0, 100, 100)
        'e.Graphics.DrawRectangle(New Pen(My.Settings.my_settings_color), 100, 100, 100, 100)
        e.Graphics.FillRectangle(New SolidBrush(my_color), 0, 0, 100, 100)
        e.Graphics.FillRectangle(New SolidBrush(My.Settings.my_settings_color), 100, 100, 100, 100)
    End Sub

Dim my_color as System.Drawing.Brush

    Private my_color As Color = Color.Black
    Private my_brush As New System.Drawing.SolidBrush(my_color)
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        'e.Graphics.DrawRectangle(New Pen(my_color), 0, 0, 100, 100)
        'e.Graphics.DrawRectangle(New Pen(My.Settings.my_settings_color), 100, 100, 100, 100)
        'e.Graphics.FillRectangle(New SolidBrush(my_color), 0, 0, 100, 100)
        'e.Graphics.FillRectangle(New SolidBrush(My.Settings.my_settings_color), 100, 100, 100, 100)
        e.Graphics.FillRectangle(my_brush, 100, 100, 100, 100)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        Dim dr As DialogResult = ColorDialog1.ShowDialog()
        If dr <> Windows.Forms.DialogResult.OK Then Exit Sub
        'saving values
        My.Settings.clrBackground = ColorDialog1.Color
        My.Settings.Save()
        Me.Button1.BackColor = My.Settings.clrBackground
    End Sub
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' getting values from PARAMETERS
        Me.Button1.BackColor = My.Settings.clrBackground
        Me.Button2.BackColor = My.Settings.clrItemColor
    End Sub