Creating Glow Button

Imports System.Drawing

Public Class ColorSet
    'Normal State
    Public BackgroundHigh As Color
    Public BackgroundLow As Color
    Public ShineHigh As Color
    Public ShineLow As Color
    Public BorderLeft As Color
    Public BorderRight As Color
    Public BorderTop As Color
    Public BorderBottom As Color
    Public TextColor As Color

    'Highlight State
    Public BackgroundHighFocus As Color
    Public BackgroundLowFocus As Color
    Public ShineHighFocus As Color
    Public ShineLowFocus As Color
    Public BorderLeftFocus As Color
    Public BorderRightFocus As Color
    Public BorderTopFocus As Color
    Public BorderBottomFocus As Color
    Public TextColorFocus As Color

    'Pressed State
    Public BackgroundHighPressed As Color
    Public BackgroundLowPressed As Color
    Public ShineHighPressed As Color
    Public ShineLowPressed As Color
    Public BorderLeftPressed As Color
    Public BorderRightPressed As Color
    Public BorderTopPressed As Color
    Public BorderBottomPressed As Color
    Public TextColorPressed As Color

    'Disabled State
    'Protected Shared _BackgroundHighDisabled As Color
    'Protected Shared _BackgroundLowDisabled As Color
    'Protected Shared _ShineHighDisabled As Color
    'Protected Shared _ShineLowDisabled As Color
    'Protected Shared _BorderLeftDisabled As Color
    'Protected Shared _BorderRightDisabled As Color
    'Protected Shared _BorderTopDisabled As Color
    'Protected Shared _BorderBottomDisabled As Color
    'Protected Shared _TextColorDisabled As Color

    'Glow Set
    Public GlowCenter As Color
End Class

#Region "Cyan Colorset"
Public Class CalmCyan
    Inherits ColorSet

    Sub New()
        BackgroundHigh = Color.FromArgb(115, 163, 183)
        BackgroundLow = Color.FromArgb(94, 146, 159)
        ShineHigh = Color.FromArgb(184, 212, 220)
        ShineLow = Color.FromArgb(143, 181, 192)
        BorderLeft = Color.FromArgb(125, Color.White)
        BorderRight = Color.FromArgb(100, Color.White)
        BorderTop = Color.White
        BorderBottom = Color.FromArgb(180, 209, 219)
        TextColor = Color.White

        BackgroundHighFocus = Color.FromArgb(47, 216, 229)
        BackgroundLowFocus = Color.FromArgb(14, 102, 159)
        ShineHighFocus = Color.FromArgb(166, 204, 229)
        ShineLowFocus = Color.FromArgb(116, 170, 206)
        BorderLeftFocus = Color.FromArgb(125, Color.White)
        BorderRightFocus = Color.FromArgb(100, Color.White)
        BorderTopFocus = Color.White
        BorderBottomFocus = Color.FromArgb(180, 209, 219)
        TextColorFocus = Color.White

        BackgroundHighPressed = Color.FromArgb(23, 214, 198)
        BackgroundLowPressed = Color.FromArgb(7, 36, 67)
        ShineHighPressed = Color.FromArgb(145, 174, 194)
        ShineLowPressed = Color.FromArgb(80, 115, 145)
        BorderLeftPressed = Color.FromArgb(125, Color.White)
        BorderRightPressed = Color.FromArgb(100, Color.White)
        BorderTopPressed = Color.White
        BorderBottomPressed = Color.FromArgb(180, 209, 219)
        TextColorPressed = Color.White

        GlowCenter = Color.FromArgb(150, 93, 198, 241)
    End Sub
End Class
#End Region

#Region "Red Colorset"
Public Class DiamondRed
    Inherits ColorSet

    Sub New()
        BackgroundHigh = Color.FromArgb(171, 115, 106)
        BackgroundLow = Color.FromArgb(185, 63, 42)
        ShineHigh = Color.FromArgb(203, 167, 163)
        ShineLow = Color.FromArgb(174, 115, 109)
        BorderLeft = Color.FromArgb(125, Color.White)
        BorderRight = Color.FromArgb(100, Color.White)
        BorderTop = Color.White
        BorderBottom = Color.FromArgb(217, 178, 166)
        TextColor = Color.White

        BackgroundHighFocus = Color.FromArgb(230, 149, 48)
        BackgroundLowFocus = Color.FromArgb(170, 38, 19)
        ShineHighFocus = Color.FromArgb(230, 154, 142)
        ShineLowFocus = Color.FromArgb(208, 101, 84)
        BorderLeftFocus = Color.FromArgb(125, Color.White)
        BorderRightFocus = Color.FromArgb(100, Color.White)
        BorderTopFocus = Color.White
        BorderBottomFocus = Color.FromArgb(245, 232, 120)
        TextColorFocus = Color.White

        BackgroundHighPressed = Color.FromArgb(144, 109, 33)
        BackgroundLowPressed = Color.FromArgb(71, 13, 2)
        ShineHighPressed = Color.FromArgb(205, 166, 144)
        ShineLowPressed = Color.FromArgb(164, 100, 75)
        BorderLeftPressed = Color.FromArgb(125, Color.White)
        BorderRightPressed = Color.FromArgb(100, Color.White)
        BorderTopPressed = Color.White
        BorderBottomPressed = Color.FromArgb(204, 203, 30)
        TextColorPressed = Color.White

        GlowCenter = Color.FromArgb(150, 217, 116, 90)
    End Sub
End Class
#End Region