Imports System.Drawing.

Drawing2D
Imports System.ComponentModel
Imports System, System.IO, System.Collections.Generic
Imports System.Drawing
Imports System.Windows.Forms

'------------------
'Creator: aeonhack
'Site: elitevs.net
'Created: 08/02/2011
'Changed: 09/23/2011
'Version: 1.5.2
'------------------

MustInherit Class ThemeContainer152

Inherits ContainerControl

Protected G As Graphics

Sub New()
SetStyle(DirectCast(139270, ControlStyles), True)
_ImageSize = Size.Empty

MeasureBitmap = New Bitmap(1, 1)

MeasureGraphics = Graphics.FromImage(MeasureBitmap)

Font = New Font("Verdana", 8S)

InvalidateCustimization()
End Sub

Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y

As Integer, ByVal width As Integer, ByVal height As Integer, ByVal
specified As BoundsSpecified)
If Not _LockWidth = 0 Then width = _LockWidth
If Not _LockHeight = 0 Then height = _LockHeight
MyBase.SetBoundsCore(x, y, width, height, specified)
End Sub

Private Header As Rectangle

Protected NotOverridable Overrides Sub OnSizeChanged(ByVal e As
EventArgs)
If _Movable AndAlso Not _ControlMode Then Header = New
Rectangle(7, 7, Width - 14, _MoveHeight - 7)
Invalidate()
MyBase.OnSizeChanged(e)
End Sub

Protected NotOverridable Overrides Sub OnPaint(ByVal e As

PaintEventArgs)
 If Width = 0 OrElse Height = 0 Then Return
G = e.Graphics
PaintHook()
End Sub

Protected NotOverridable Overrides Sub OnHandleCreated(ByVal e As

EventArgs)
InvalidateCustimization()
ColorHook()

If Not _LockWidth = 0 Then Width = _LockWidth

If Not _LockHeight = 0 Then Height = _LockHeight
If Not _ControlMode Then MyBase.Dock = DockStyle.Fill

MyBase.OnHandleCreated(e)
End Sub

Protected NotOverridable Overrides Sub OnParentChanged(ByVal e As

EventArgs)
MyBase.OnParentChanged(e)

If Parent Is Nothing Then Return

_IsParentForm = TypeOf Parent Is Form

If Not _ControlMode Then

InitializeMessages()

If _IsParentForm Then
ParentForm.FormBorderStyle = _BorderStyle
ParentForm.TransparencyKey = _TransparencyKey
End If

Parent.BackColor = BackColor
End If

OnCreation()
End Sub

Protected Overridable Sub OnCreation()

End Sub

#Region " Sizing and Movement "

Protected State As MouseState

Private Sub SetState(ByVal current As MouseState)
State = current
Invalidate()
End Sub

Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)

 If Not (_IsParentForm AndAlso ParentForm.WindowState =
FormWindowState.Maximized) Then
If _Sizable AndAlso Not _ControlMode Then
InvalidateMouse()
End If

MyBase.OnMouseMove(e)
End Sub

Protected Overrides Sub OnEnabledChanged(ByVal e As EventArgs)

If Enabled Then SetState(MouseState.None) Else
SetState(MouseState.Block)
MyBase.OnEnabledChanged(e)
End Sub

Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)

SetState(MouseState.Over)
MyBase.OnMouseEnter(e)
End Sub

Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)

SetState(MouseState.Over)
MyBase.OnMouseUp(e)
End Sub

Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)

SetState(MouseState.None)

If GetChildAtPoint(PointToClient(MousePosition)) IsNot
Nothing Then
If _Sizable AndAlso Not _ControlMode Then
Cursor = Cursors.Default
Previous = 0
End If
End If

MyBase.OnMouseLeave(e)
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)

If e.Button = Windows.Forms.MouseButtons.Left Then
SetState(MouseState.Down)

If Not (_IsParentForm AndAlso ParentForm.WindowState =

FormWindowState.Maximized OrElse _ControlMode) Then
If _Movable AndAlso Header.Contains(e.Location) Then
Capture = False
WM_LMBUTTONDOWN = True
DefWndProc(Messages(0))
ElseIf _Sizable AndAlso Not Previous = 0 Then
 Capture = False
WM_LMBUTTONDOWN = True
DefWndProc(Messages(Previous))
End If
End If

MyBase.OnMouseDown(e)
End Sub

Private WM_LMBUTTONDOWN As Boolean

Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)

If WM_LMBUTTONDOWN AndAlso m.Msg = 513 Then

WM_LMBUTTONDOWN = False

SetState(MouseState.Over)
If Not _SmartBounds Then Return

If IsParentMdi Then
CorrectBounds(New Rectangle(Point.Empty,
Parent.Parent.Size))
Else
CorrectBounds(Screen.FromControl(Parent).WorkingArea)
End If
End If
End Sub

Private GetIndexPoint As Point

Private B1, B2, B3, B4 As Boolean
Private Function GetIndex() As Integer
GetIndexPoint = PointToClient(MousePosition)
B1 = GetIndexPoint.X < 7
B2 = GetIndexPoint.X > Width - 7
B3 = GetIndexPoint.Y < 7
B4 = GetIndexPoint.Y > Height - 7

If B1 AndAlso B3 Then Return 4

If B1 AndAlso B4 Then Return 7
If B2 AndAlso B3 Then Return 5
If B2 AndAlso B4 Then Return 8
If B1 Then Return 1
If B2 Then Return 2
If B3 Then Return 3
If B4 Then Return 6
Return 0
End Function

Private Current, Previous As Integer

Private Sub InvalidateMouse()
 Current = GetIndex()
If Current = Previous Then Return

Previous = Current
Select Case Previous
Case 0
Cursor = Cursors.Default
Case 1, 2
Cursor = Cursors.SizeWE
Case 3, 6
Cursor = Cursors.SizeNS
Case 4, 8
Cursor = Cursors.SizeNWSE
Case 5, 7
Cursor = Cursors.SizeNESW
End Select
End Sub

Private Messages(8) As Message

Private Sub InitializeMessages()
Messages(0) = Message.Create(Parent.Handle, 161, New
IntPtr(2), IntPtr.Zero)
For I As Integer = 1 To 8
Messages(I) = Message.Create(Parent.Handle, 161, New
IntPtr(I + 9), IntPtr.Zero)
Next
End Sub

Private Sub CorrectBounds(ByVal bounds As Rectangle)

If Parent.Width > bounds.Width Then Parent.Width =
bounds.Width
If Parent.Height > bounds.Height Then Parent.Height =
bounds.Height

Dim X As Integer = Parent.Location.X

Dim Y As Integer = Parent.Location.Y

If X < bounds.X Then X = bounds.X

If Y < bounds.Y Then Y = bounds.Y

Dim Width As Integer = bounds.X + bounds.Width

Dim Height As Integer = bounds.Y + bounds.Height

If X + Parent.Width > Width Then X = Width - Parent.Width

If Y + Parent.Height > Height Then Y = Height - Parent.Height

Parent.Location = New Point(X, Y)

End Sub

#End Region
#Region " Property Overrides "

Overrides Property Dock As DockStyle

Get
Return MyBase.Dock
End Get
Set(ByVal value As DockStyle)
If Not _ControlMode Then Return
MyBase.Dock = value
End Set
End Property

<Category("Misc")> _
Overrides Property BackColor() As Color
Get
Return MyBase.BackColor
End Get
Set(ByVal value As Color)
If value = BackColor Then Return
MyBase.BackColor = value

If Parent IsNot Nothing Then

If Not _ControlMode Then Parent.BackColor = value
ColorHook()
End If
End Set
End Property

Overrides Property MinimumSize As Size

Get
Return MyBase.MinimumSize
End Get
Set(ByVal value As Size)
MyBase.MinimumSize = value
If Parent IsNot Nothing Then Parent.MinimumSize = value
End Set
End Property

Overrides Property MaximumSize As Size

Get
Return MyBase.MaximumSize
End Get
Set(ByVal value As Size)
MyBase.MaximumSize = value
If Parent IsNot Nothing Then Parent.MaximumSize = value
End Set
End Property
 Overrides Property Text() As String
Get
Return MyBase.Text
End Get
Set(ByVal value As String)
MyBase.Text = value
Invalidate()
End Set
End Property

Overrides Property Font() As Font

Get
Return MyBase.Font
End Get
Set(ByVal value As Font)
MyBase.Font = value
Invalidate()
End Set
End Property

<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property ForeColor() As Color
Get
Return Color.Empty
End Get
Set(ByVal value As Color)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property BackgroundImage() As Image
Get
Return Nothing
End Get
Set(ByVal value As Image)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property BackgroundImageLayout() As ImageLayout
Get
Return ImageLayout.None
End Get
Set(ByVal value As ImageLayout)
End Set
End Property
#End Region

#Region " Properties "

Private _SmartBounds As Boolean = True

Property SmartBounds() As Boolean
Get
Return _SmartBounds
End Get
Set(ByVal value As Boolean)
_SmartBounds = value
End Set
End Property

Private _Movable As Boolean = True

Property Movable() As Boolean
Get
Return _Movable
End Get
Set(ByVal value As Boolean)
_Movable = value
End Set
End Property

Private _Sizable As Boolean = True

Property Sizable() As Boolean
Get
Return _Sizable
End Get
Set(ByVal value As Boolean)
_Sizable = value
End Set
End Property

Private _TransparencyKey As Color

Property TransparencyKey() As Color
Get
If _IsParentForm AndAlso Not _ControlMode Then Return
ParentForm.TransparencyKey Else Return _TransparencyKey
End Get
Set(ByVal value As Color)
If value = _TransparencyKey Then Return
_TransparencyKey = value

If _IsParentForm AndAlso Not _ControlMode Then

ParentForm.TransparencyKey = value
ColorHook()
End If
End Set
 End Property

Private _BorderStyle As FormBorderStyle

Property BorderStyle() As FormBorderStyle
Get
If _IsParentForm AndAlso Not _ControlMode Then Return
ParentForm.FormBorderStyle Else Return _BorderStyle
End Get
Set(ByVal value As FormBorderStyle)
_BorderStyle = value

If _IsParentForm AndAlso Not _ControlMode Then

ParentForm.FormBorderStyle = value

If Not value = FormBorderStyle.None Then

Movable = False
Sizable = False
End If
End If
End Set
End Property

Private _NoRounding As Boolean

Property NoRounding() As Boolean
Get
Return _NoRounding
End Get
Set(ByVal v As Boolean)
_NoRounding = v
Invalidate()
End Set
End Property

Private _Image As Image

Property Image() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
If value Is Nothing Then _ImageSize = Size.Empty Else
_ImageSize = value.Size

_Image = value
Invalidate()
End Set
End Property

Private _ImageSize As Size

Protected ReadOnly Property ImageSize() As Size
Get
 Return _ImageSize
End Get
End Property

Private _IsParentForm As Boolean

Protected ReadOnly Property IsParentForm As Boolean
Get
Return _IsParentForm
End Get
End Property

Protected ReadOnly Property IsParentMdi As Boolean

Get
If Parent Is Nothing Then Return False
Return Parent.Parent IsNot Nothing
End Get
End Property

Private _LockWidth As Integer

Protected Property LockWidth() As Integer
Get
Return _LockWidth
End Get
Set(ByVal value As Integer)
_LockWidth = value
If Not LockWidth = 0 AndAlso IsHandleCreated Then Width =
LockWidth
End Set
End Property

Private _LockHeight As Integer

Protected Property LockHeight() As Integer
Get
Return _LockHeight
End Get
Set(ByVal value As Integer)
_LockHeight = value
If Not LockHeight = 0 AndAlso IsHandleCreated Then Height
= LockHeight
End Set
End Property

Private _MoveHeight As Integer = 24

Protected Property MoveHeight() As Integer
Get
Return _MoveHeight
End Get
Set(ByVal v As Integer)
If v < 8 Then Return
Header = New Rectangle(7, 7, Width - 14, v - 7)
 _MoveHeight = v
Invalidate()
End Set
End Property

Private _ControlMode As Boolean

Protected Property ControlMode() As Boolean
Get
Return _ControlMode
End Get
Set(ByVal v As Boolean)
_ControlMode = v
End Set
End Property

Private Items As New Dictionary(Of String, Color)

<DesignerSerializationVisibility(DesignerSerializationVisibility.Cont
ent)> _
Property Colors() As Bloom()
Get
Dim T As New List(Of Bloom)
Dim E As Dictionary(Of String, Color).Enumerator =
Items.GetEnumerator

While E.MoveNext
T.Add(New Bloom(E.Current.Key, E.Current.Value))
End While

Return T.ToArray
End Get
Set(ByVal value As Bloom())
For Each B As Bloom In value
If Items.ContainsKey(B.Name) Then Items(B.Name) =
B.Value
Next

InvalidateCustimization()
ColorHook()
Invalidate()
End Set
End Property

Private _Customization As String

Property Customization() As String
Get
Return _Customization
End Get
Set(ByVal value As String)
If value = _Customization Then Return
 Dim Data As Byte()
Dim Items As Bloom() = Colors

Try
Data = Convert.FromBase64String(value)
For I As Integer = 0 To Items.Length - 1
Items(I).Value =
Color.FromArgb(BitConverter.ToInt32(Data, I * 4))
Next
Catch
Return
End Try

_Customization = value

Colors = Items
ColorHook()
Invalidate()
End Set
End Property

#End Region

#Region " Property Helpers "

Protected Function GetColor(ByVal name As String) As Color

Return Items(name)
End Function

Protected Sub SetColor(ByVal name As String, ByVal value As

Color)
If Items.ContainsKey(name) Then Items(name) = value Else
Items.Add(name, value)
End Sub
Protected Sub SetColor(ByVal name As String, ByVal r As Byte,
ByVal g As Byte, ByVal b As Byte)
SetColor(name, Color.FromArgb(r, g, b))
End Sub
Protected Sub SetColor(ByVal name As String, ByVal a As Byte,
ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
SetColor(name, Color.FromArgb(a, r, g, b))
End Sub
Protected Sub SetColor(ByVal name As String, ByVal a As Byte,
ByVal value As Color)
SetColor(name, Color.FromArgb(a, value))
End Sub

Private Sub InvalidateCustimization()

Dim M As New MemoryStream(Items.Count * 4)
 For Each B As Bloom In Colors
M.Write(BitConverter.GetBytes(B.Value.ToArgb), 0, 4)
Next

M.Close()
_Customization = Convert.ToBase64String(M.ToArray)
End Sub

#End Region

#Region " User Hooks "

Protected MustOverride Sub ColorHook()

Protected MustOverride Sub PaintHook()

#End Region

#Region " Center Overloads "

Private CenterReturn As Point

Protected Function Center(ByVal r1 As Rectangle, ByVal s1 As

Size) As Point
CenterReturn = New Point((r1.Width \ 2 - s1.Width \ 2) +
r1.X, (r1.Height \ 2 - s1.Height \ 2) + r1.Y)
Return CenterReturn
End Function
Protected Function Center(ByVal r1 As Rectangle, ByVal r2 As
Rectangle) As Point
Return Center(r1, r2.Size)
End Function

Protected Function Center(ByVal w1 As Integer, ByVal h1 As

Integer, ByVal w2 As Integer, ByVal h2 As Integer) As Point
CenterReturn = New Point(w1 \ 2 - w2 \ 2, h1 \ 2 - h2 \ 2)
Return CenterReturn
End Function

Protected Function Center(ByVal s1 As Size, ByVal s2 As Size) As

Point
Return Center(s1.Width, s1.Height, s2.Width, s2.Height)
End Function

Protected Function Center(ByVal r1 As Rectangle) As Point

Return Center(ClientRectangle.Width, ClientRectangle.Height,
r1.Width, r1.Height)
End Function
 Protected Function Center(ByVal s1 As Size) As Point
Return Center(Width, Height, s1.Width, s1.Height)
End Function
Protected Function Center(ByVal w1 As Integer, ByVal h1 As
Integer) As Point
Return Center(Width, Height, w1, h1)
End Function

#End Region

#Region " Measure Overloads "

Private MeasureBitmap As Bitmap

Private MeasureGraphics As Graphics

Protected Function Measure(ByVal text As String) As Size

Return MeasureGraphics.MeasureString(text, Font,
Width).ToSize
End Function
Protected Function Measure() As Size
Return MeasureGraphics.MeasureString(Text, Font).ToSize
End Function

#End Region

#Region " DrawCorners Overloads "

Private DrawCornersBrush As SolidBrush

Protected Sub DrawCorners(ByVal c1 As Color)

DrawCorners(c1, 0, 0, Width, Height)
End Sub
Protected Sub DrawCorners(ByVal c1 As Color, ByVal r1 As
Rectangle)
DrawCorners(c1, r1.X, r1.Y, r1.Width, r1.Height)
End Sub
Protected Sub DrawCorners(ByVal c1 As Color, ByVal x As Integer,
ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
If _NoRounding Then Return
DrawCornersBrush = New SolidBrush(c1)
G.FillRectangle(DrawCornersBrush, x, y, 1, 1)
G.FillRectangle(DrawCornersBrush, x + (width - 1), y, 1, 1)
G.FillRectangle(DrawCornersBrush, x, y + (height - 1), 1, 1)
G.FillRectangle(DrawCornersBrush, x + (width - 1), y +
(height - 1), 1, 1)
End Sub

#End Region

#Region " DrawBorders Overloads "

 'TODO: Remove triple overload?

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer,

ByVal y As Integer, ByVal width As Integer, ByVal height As Integer,
ByVal offset As Integer)
DrawBorders(p1, x + offset, y + offset, width - (offset * 2),
height - (offset * 2))
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal offset As
Integer)
DrawBorders(p1, 0, 0, Width, Height, offset)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle,
ByVal offset As Integer)
DrawBorders(p1, r.X, r.Y, r.Width, r.Height, offset)
End Sub

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer,

ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
G.DrawRectangle(p1, x, y, width - 1, height - 1)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen)
DrawBorders(p1, 0, 0, Width, Height)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle)
DrawBorders(p1, r.X, r.Y, r.Width, r.Height)
End Sub

#End Region

#Region " DrawText Overloads "

'TODO: Remove triple overloads?

Private DrawTextPoint As Point

Private DrawTextSize As Size

Protected Sub DrawText(ByVal b1 As Brush, ByVal a As

HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
DrawText(b1, Text, a, x, y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal p1 As Point)
DrawText(b1, Text, p1.X, p1.Y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal x As Integer,
ByVal y As Integer)
DrawText(b1, Text, x, y)
End Sub
 Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,
ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As
Integer)
If text.Length = 0 Then Return
DrawTextSize = Measure(text)

If _ControlMode Then
DrawTextPoint = Center(DrawTextSize)
Else
DrawTextPoint = New Point(Width \ 2 -
DrawTextSize.Width \ 2, MoveHeight \ 2 - DrawTextSize.Height \ 2)
End If

Select Case a
Case HorizontalAlignment.Left
DrawText(b1, text, x, DrawTextPoint.Y + y)
Case HorizontalAlignment.Center
DrawText(b1, text, DrawTextPoint.X + x,
DrawTextPoint.Y + y)
Case HorizontalAlignment.Right
DrawText(b1, text, Width - DrawTextSize.Width - x,
DrawTextPoint.Y + y)
End Select
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,
ByVal p1 As Point)
DrawText(b1, text, p1.X, p1.Y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,
ByVal x As Integer, ByVal y As Integer)
If text.Length = 0 Then Return
G.DrawString(text, Font, b1, x, y)
End Sub

#End Region

#Region " DrawImage Overloads "

'TODO: Remove triple overloads?

Private DrawImagePoint As Point

Protected Sub DrawImage(ByVal a As HorizontalAlignment, ByVal x

As Integer, ByVal y As Integer)
DrawImage(_Image, a, x, y)
End Sub
Protected Sub DrawImage(ByVal p1 As Point)
DrawImage(_Image, p1.X, p1.Y)
End Sub
Protected Sub DrawImage(ByVal x As Integer, ByVal y As Integer)
 DrawImage(_Image, x, y)
End Sub

Protected Sub DrawImage(ByVal image As Image, ByVal a As

HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
If image Is Nothing Then Return

If _ControlMode Then
DrawImagePoint = Center(image.Size)
Else
DrawImagePoint = New Point(Width \ 2 - image.Width \ 2,
MoveHeight \ 2 - image.Height \ 2)
End If

Select Case a
Case HorizontalAlignment.Left
DrawImage(image, x, DrawImagePoint.Y + y)
Case HorizontalAlignment.Center
DrawImage(image, DrawImagePoint.X + x,
DrawImagePoint.Y + y)
Case HorizontalAlignment.Right
DrawImage(image, Width - image.Width - x,
DrawImagePoint.Y + y)
End Select
End Sub
Protected Sub DrawImage(ByVal image As Image, ByVal p1 As Point)
DrawImage(image, p1.X, p1.Y)
End Sub
Protected Sub DrawImage(ByVal image As Image, ByVal x As Integer,
ByVal y As Integer)
If image Is Nothing Then Return
G.DrawImage(image, x, y, image.Width, image.Height)
End Sub

#End Region

#Region " DrawGradient Overloads "

'TODO: Remove triple overload?

Private DrawGradientBrush As LinearGradientBrush

Private DrawGradientRectangle As Rectangle

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As

Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As
Integer)
DrawGradient(blend, x, y, width, height, 90S)
End Sub
 Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal
height As Integer)
DrawGradient(c1, c2, x, y, width, height, 90S)
End Sub

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As

Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As
Integer, ByVal angle As Single)
DrawGradientRectangle = New Rectangle(x, y, width, height)
DrawGradient(blend, DrawGradientRectangle, angle)
End Sub
Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal
height As Integer, ByVal angle As Single)
DrawGradientRectangle = New Rectangle(x, y, width, height)
DrawGradient(c1, c2, DrawGradientRectangle, angle)
End Sub

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal r As

Rectangle, ByVal angle As Single)
DrawGradientBrush = New LinearGradientBrush(r, Color.Empty,
Color.Empty, angle)
DrawGradientBrush.InterpolationColors = blend
G.FillRectangle(DrawGradientBrush, r)
End Sub
Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal r As Rectangle, ByVal angle As Single)
DrawGradientBrush = New LinearGradientBrush(r, c1, c2, angle)
G.FillRectangle(DrawGradientBrush, r)
End Sub

#End Region

End Class

MustInherit Class ThemeControl152

Inherits Control

Protected G As Graphics, B As Bitmap

Sub New()
SetStyle(DirectCast(139270, ControlStyles), True)

_ImageSize = Size.Empty

MeasureBitmap = New Bitmap(1, 1)

MeasureGraphics = Graphics.FromImage(MeasureBitmap)

Font = New Font("Verdana", 8S)

 InvalidateCustimization()
End Sub

Protected Overrides Sub SetBoundsCore(ByVal x As Integer, ByVal y

As Integer, ByVal width As Integer, ByVal height As Integer, ByVal
specified As BoundsSpecified)
If Not _LockWidth = 0 Then width = _LockWidth
If Not _LockHeight = 0 Then height = _LockHeight
MyBase.SetBoundsCore(x, y, width, height, specified)
End Sub

Protected NotOverridable Overrides Sub OnSizeChanged(ByVal e As

EventArgs)
If _Transparent AndAlso Not (Width = 0 OrElse Height = 0)
Then
B = New Bitmap(Width, Height)
G = Graphics.FromImage(B)
End If

Invalidate()
MyBase.OnSizeChanged(e)
End Sub

Protected NotOverridable Overrides Sub OnPaint(ByVal e As

PaintEventArgs)
If Width = 0 OrElse Height = 0 Then Return

If _Transparent Then
PaintHook()
e.Graphics.DrawImage(B, 0, 0)
Else
G = e.Graphics
PaintHook()
End If
End Sub

Protected NotOverridable Overrides Sub OnHandleCreated(ByVal e As

EventArgs)
InvalidateCustimization()
ColorHook()

If Not _LockWidth = 0 Then Width = _LockWidth

If Not _LockHeight = 0 Then Height = _LockHeight

Transparent = _Transparent
If _BackColorU AndAlso _Transparent Then BackColor =
Color.Transparent

MyBase.OnHandleCreated(e)
 End Sub

Protected NotOverridable Overrides Sub OnParentChanged(ByVal e As

EventArgs)
If Parent IsNot Nothing Then OnCreation()
MyBase.OnParentChanged(e)
End Sub

Protected Overridable Sub OnCreation()

End Sub

#Region " State Handling "

Private InPosition As Boolean

Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
InPosition = True
SetState(MouseState.Over)
MyBase.OnMouseEnter(e)
End Sub

Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)

If InPosition Then SetState(MouseState.Over)
MyBase.OnMouseUp(e)
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)

If e.Button = Windows.Forms.MouseButtons.Left Then
SetState(MouseState.Down)
MyBase.OnMouseDown(e)
End Sub

Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)

InPosition = False
SetState(MouseState.None)
MyBase.OnMouseLeave(e)
End Sub

Protected Overrides Sub OnEnabledChanged(ByVal e As EventArgs)

If Enabled Then SetState(MouseState.None) Else
SetState(MouseState.Block)
MyBase.OnEnabledChanged(e)
End Sub

Protected State As MouseState

Private Sub SetState(ByVal current As MouseState)
State = current
Invalidate()
End Sub

#End Region
#Region " Property Overrides "

Private _BackColorU As Boolean

<Category("Misc")> _
Overrides Property BackColor() As Color
Get
Return MyBase.BackColor
End Get
Set(ByVal value As Color)
If Not IsHandleCreated AndAlso value = Color.Transparent
Then
_BackColorU = True
Return
End If

MyBase.BackColor = value
If Parent IsNot Nothing Then ColorHook()
End Set
End Property

<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property ForeColor() As Color
Get
Return Color.Empty
End Get
Set(ByVal value As Color)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property BackgroundImage() As Image
Get
Return Nothing
End Get
Set(ByVal value As Image)
End Set
End Property
<Browsable(False), EditorBrowsable(EditorBrowsableState.Never),
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidde
n)> _
Overrides Property BackgroundImageLayout() As ImageLayout
Get
Return ImageLayout.None
End Get
Set(ByVal value As ImageLayout)
 End Set
End Property

Overrides Property Text() As String

Get
Return MyBase.Text
End Get
Set(ByVal value As String)
MyBase.Text = value
Invalidate()
End Set
End Property

Overrides Property Font() As Font

Get
Return MyBase.Font
End Get
Set(ByVal value As Font)
MyBase.Font = value
Invalidate()
End Set
End Property

#End Region

#Region " Properties "

Private _NoRounding As Boolean

Property NoRounding() As Boolean
Get
Return _NoRounding
End Get
Set(ByVal v As Boolean)
_NoRounding = v
Invalidate()
End Set
End Property

Private _Image As Image

Property Image() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
If value Is Nothing Then
_ImageSize = Size.Empty
Else
_ImageSize = value.Size
End If
 _Image = value
Invalidate()
End Set
End Property

Private _ImageSize As Size

Protected ReadOnly Property ImageSize() As Size
Get
Return _ImageSize
End Get
End Property

Private _LockWidth As Integer

Protected Property LockWidth() As Integer
Get
Return _LockWidth
End Get
Set(ByVal value As Integer)
_LockWidth = value
If Not LockWidth = 0 AndAlso IsHandleCreated Then Width =
LockWidth
End Set
End Property

Private _LockHeight As Integer

Protected Property LockHeight() As Integer
Get
Return _LockHeight
End Get
Set(ByVal value As Integer)
_LockHeight = value
If Not LockHeight = 0 AndAlso IsHandleCreated Then Height
= LockHeight
End Set
End Property

Private _Transparent As Boolean

Property Transparent() As Boolean
Get
Return _Transparent
End Get
Set(ByVal value As Boolean)
_Transparent = value
If Not IsHandleCreated Then Return

If Not value AndAlso Not BackColor.A = 255 Then

Throw New Exception("Unable to change value to false
while a transparent BackColor is in use.")
End If
 SetStyle(ControlStyles.Opaque, Not value)
SetStyle(ControlStyles.SupportsTransparentBackColor,
value)

If value Then InvalidateBitmap() Else B = Nothing

Invalidate()
End Set
End Property

Private Items As New Dictionary(Of String, Color)

<DesignerSerializationVisibility(DesignerSerializationVisibility.Cont
ent)> _
Property Colors() As Bloom()
Get
Dim T As New List(Of Bloom)
Dim E As Dictionary(Of String, Color).Enumerator =
Items.GetEnumerator

While E.MoveNext
T.Add(New Bloom(E.Current.Key, E.Current.Value))
End While

Return T.ToArray
End Get
Set(ByVal value As Bloom())
For Each B As Bloom In value
If Items.ContainsKey(B.Name) Then Items(B.Name) =
B.Value
Next

InvalidateCustimization()
ColorHook()
Invalidate()
End Set
End Property

Private _Customization As String

Property Customization() As String
Get
Return _Customization
End Get
Set(ByVal value As String)
If value = _Customization Then Return

Dim Data As Byte()

Dim Items As Bloom() = Colors

Try
Data = Convert.FromBase64String(value)
 For I As Integer = 0 To Items.Length - 1
Items(I).Value =
Color.FromArgb(BitConverter.ToInt32(Data, I * 4))
Next
Catch
Return
End Try

_Customization = value

Colors = Items
ColorHook()
Invalidate()
End Set
End Property

#End Region

#Region " Property Helpers "

Private Sub InvalidateBitmap()

If Width = 0 OrElse Height = 0 Then Return
B = New Bitmap(Width, Height)
G = Graphics.FromImage(B)
End Sub

Protected Function GetColor(ByVal name As String) As Color

Return Items(name)
End Function

Protected Sub SetColor(ByVal name As String, ByVal value As

Color)
If Items.ContainsKey(name) Then Items(name) = value Else
Items.Add(name, value)
End Sub
Protected Sub SetColor(ByVal name As String, ByVal r As Byte,
ByVal g As Byte, ByVal b As Byte)
SetColor(name, Color.FromArgb(r, g, b))
End Sub
Protected Sub SetColor(ByVal name As String, ByVal a As Byte,
ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
SetColor(name, Color.FromArgb(a, r, g, b))
End Sub
Protected Sub SetColor(ByVal name As String, ByVal a As Byte,
ByVal value As Color)
SetColor(name, Color.FromArgb(a, value))
End Sub

Private Sub InvalidateCustimization()

Dim M As New MemoryStream(Items.Count * 4)
 For Each B As Bloom In Colors
M.Write(BitConverter.GetBytes(B.Value.ToArgb), 0, 4)
Next

M.Close()
_Customization = Convert.ToBase64String(M.ToArray)
End Sub

#End Region

#Region " User Hooks "

Protected MustOverride Sub ColorHook()

Protected MustOverride Sub PaintHook()

#End Region

#Region " Center Overloads "

Private CenterReturn As Point

Protected Function Center(ByVal r1 As Rectangle, ByVal s1 As

Size) As Point
CenterReturn = New Point((r1.Width \ 2 - s1.Width \ 2) +
r1.X, (r1.Height \ 2 - s1.Height \ 2) + r1.Y)
Return CenterReturn
End Function
Protected Function Center(ByVal r1 As Rectangle, ByVal r2 As
Rectangle) As Point
Return Center(r1, r2.Size)
End Function

Protected Function Center(ByVal w1 As Integer, ByVal h1 As

Integer, ByVal w2 As Integer, ByVal h2 As Integer) As Point
CenterReturn = New Point(w1 \ 2 - w2 \ 2, h1 \ 2 - h2 \ 2)
Return CenterReturn
End Function

Protected Function Center(ByVal s1 As Size, ByVal s2 As Size) As

Point
Return Center(s1.Width, s1.Height, s2.Width, s2.Height)
End Function

Protected Function Center(ByVal r1 As Rectangle) As Point

Return Center(ClientRectangle.Width, ClientRectangle.Height,
r1.Width, r1.Height)
End Function
 Protected Function Center(ByVal s1 As Size) As Point
Return Center(Width, Height, s1.Width, s1.Height)
End Function
Protected Function Center(ByVal w1 As Integer, ByVal h1 As
Integer) As Point
Return Center(Width, Height, w1, h1)
End Function

#End Region

#Region " Measure Overloads "

Private MeasureBitmap As Bitmap

Private MeasureGraphics As Graphics

Protected Function Measure(ByVal text As String) As Size

Return MeasureGraphics.MeasureString(text, Font,
Width).ToSize
End Function
Protected Function Measure() As Size
Return MeasureGraphics.MeasureString(Text, Font,
Width).ToSize
End Function

#End Region

#Region " DrawCorners Overloads "

Private DrawCornersBrush As SolidBrush

Protected Sub DrawCorners(ByVal c1 As Color)

DrawCorners(c1, 0, 0, Width, Height)
End Sub
Protected Sub DrawCorners(ByVal c1 As Color, ByVal r1 As
Rectangle)
DrawCorners(c1, r1.X, r1.Y, r1.Width, r1.Height)
End Sub
Protected Sub DrawCorners(ByVal c1 As Color, ByVal x As Integer,
ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
If _NoRounding Then Return

If _Transparent Then
B.SetPixel(x, y, c1)
B.SetPixel(x + (width - 1), y, c1)
B.SetPixel(x, y + (height - 1), c1)
B.SetPixel(x + (width - 1), y + (height - 1), c1)
Else
DrawCornersBrush = New SolidBrush(c1)
G.FillRectangle(DrawCornersBrush, x, y, 1, 1)
 G.FillRectangle(DrawCornersBrush, x + (width - 1), y, 1,
1)
G.FillRectangle(DrawCornersBrush, x, y + (height - 1), 1,
1)
G.FillRectangle(DrawCornersBrush, x + (width - 1), y +
(height - 1), 1, 1)
End If
End Sub

#End Region

#Region " DrawBorders Overloads "

'TODO: Remove triple overload?

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer,

ByVal y As Integer, ByVal width As Integer, ByVal height As Integer,
ByVal offset As Integer)
DrawBorders(p1, x + offset, y + offset, width - (offset * 2),
height - (offset * 2))
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal offset As
Integer)
DrawBorders(p1, 0, 0, Width, Height, offset)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle,
ByVal offset As Integer)
DrawBorders(p1, r.X, r.Y, r.Width, r.Height, offset)
End Sub

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal x As Integer,

ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
G.DrawRectangle(p1, x, y, width - 1, height - 1)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen)
DrawBorders(p1, 0, 0, Width, Height)
End Sub
Protected Sub DrawBorders(ByVal p1 As Pen, ByVal r As Rectangle)
DrawBorders(p1, r.X, r.Y, r.Width, r.Height)
End Sub

#End Region

#Region " DrawText Overloads "

'TODO: Remove triple overloads?

Private DrawTextPoint As Point

Private DrawTextSize As Size
 Protected Sub DrawText(ByVal b1 As Brush, ByVal a As
HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
DrawText(b1, Text, a, x, y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal p1 As Point)
DrawText(b1, Text, p1.X, p1.Y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal x As Integer,
ByVal y As Integer)
DrawText(b1, Text, x, y)
End Sub

Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,

ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As
Integer)
If text.Length = 0 Then Return
DrawTextSize = Measure(text)
DrawTextPoint = Center(DrawTextSize)

Select Case a
Case HorizontalAlignment.Left
DrawText(b1, text, x, DrawTextPoint.Y + y)
Case HorizontalAlignment.Center
DrawText(b1, text, DrawTextPoint.X + x,
DrawTextPoint.Y + y)
Case HorizontalAlignment.Right
DrawText(b1, text, Width - DrawTextSize.Width - x,
DrawTextPoint.Y + y)
End Select
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,
ByVal p1 As Point)
DrawText(b1, text, p1.X, p1.Y)
End Sub
Protected Sub DrawText(ByVal b1 As Brush, ByVal text As String,
ByVal x As Integer, ByVal y As Integer)
If text.Length = 0 Then Return
G.DrawString(text, Font, b1, x, y)
End Sub

#End Region

#Region " DrawImage Overloads "

'TODO: Remove triple overloads?

Private DrawImagePoint As Point

Protected Sub DrawImage(ByVal a As HorizontalAlignment, ByVal x

As Integer, ByVal y As Integer)
 DrawImage(_Image, a, x, y)
End Sub
Protected Sub DrawImage(ByVal p1 As Point)
DrawImage(_Image, p1.X, p1.Y)
End Sub
Protected Sub DrawImage(ByVal x As Integer, ByVal y As Integer)
DrawImage(_Image, x, y)
End Sub

Protected Sub DrawImage(ByVal image As Image, ByVal a As

HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
If image Is Nothing Then Return
DrawImagePoint = Center(image.Size)

Select Case a
Case HorizontalAlignment.Left
DrawImage(image, x, DrawImagePoint.Y + y)
Case HorizontalAlignment.Center
DrawImage(image, DrawImagePoint.X + x,
DrawImagePoint.Y + y)
Case HorizontalAlignment.Right
DrawImage(image, Width - image.Width - x,
DrawImagePoint.Y + y)
End Select
End Sub
Protected Sub DrawImage(ByVal image As Image, ByVal p1 As Point)
DrawImage(image, p1.X, p1.Y)
End Sub
Protected Sub DrawImage(ByVal image As Image, ByVal x As Integer,
ByVal y As Integer)
If image Is Nothing Then Return
G.DrawImage(image, x, y, image.Width, image.Height)
End Sub

#End Region

#Region " DrawGradient Overloads "

'TODO: Remove triple overload?

Private DrawGradientBrush As LinearGradientBrush

Private DrawGradientRectangle As Rectangle

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As

Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As
Integer)
DrawGradient(blend, x, y, width, height, 90S)
End Sub
 Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal
height As Integer)
DrawGradient(c1, c2, x, y, width, height, 90S)
End Sub

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal x As

Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As
Integer, ByVal angle As Single)
DrawGradientRectangle = New Rectangle(x, y, width, height)
DrawGradient(blend, DrawGradientRectangle, angle)
End Sub
Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal
height As Integer, ByVal angle As Single)
DrawGradientRectangle = New Rectangle(x, y, width, height)
DrawGradient(c1, c2, DrawGradientRectangle, angle)
End Sub

Protected Sub DrawGradient(ByVal blend As ColorBlend, ByVal r As

Rectangle, ByVal angle As Single)
DrawGradientBrush = New LinearGradientBrush(r, Color.Empty,
Color.Empty, angle)
DrawGradientBrush.InterpolationColors = blend
G.FillRectangle(DrawGradientBrush, r)
End Sub
Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color,
ByVal r As Rectangle, ByVal angle As Single)
DrawGradientBrush = New LinearGradientBrush(r, c1, c2, angle)
G.FillRectangle(DrawGradientBrush, r)
End Sub

#End Region

End Class

Enum MouseState As Byte

None = 0
Over = 1
Down = 2
Block = 3
End Enum

Class Bloom

Private _Name As String

Property Name() As String
Get
Return _Name
End Get
 Set(ByVal value As String)
_Name = value
End Set
End Property

Private _Value As Color

Property Value() As Color
Get
Return _Value
End Get
Set(ByVal value As Color)
_Value = value
End Set
End Property

Sub New()
End Sub

Sub New(ByVal name As String, ByVal value As Color)

_Name = name
_Value = value
End Sub
End Class
Class DarkMatterTheme
Inherits ThemeContainer152

Sub New()
TransparencyKey = Color.Cyan
End Sub

Dim tGlow, tColor As Color

Protected Overrides Sub ColorHook()

End Sub

Dim T As New HatchBrush(HatchStyle.LightUpwardDiagonal,

Color.Black, Color.FromArgb(39, 39, 41))
Protected Overrides Sub PaintHook()
G.SmoothingMode = SmoothingMode.HighQuality

Select Case _ThemeColor

Case 0 'GammaRay
tGlow = Color.FromArgb(35, Color.LawnGreen)
tColor = Color.FromArgb(255, Color.LawnGreen)
Case 1 'RedShift
tGlow = Color.FromArgb(35, Color.Red)
tColor = Color.FromArgb(255, Color.Red)
Case 2 'SubSpace
tGlow = Color.FromArgb(35, Color.DodgerBlue)
tColor = Color.FromArgb(255, Color.DodgerBlue)
 Case 3 'SolarFlare
tGlow = Color.FromArgb(35, Color.Gold)
tColor = Color.FromArgb(255, Color.Gold)
End Select

G.Clear(Color.FromArgb(39, 41, 41))

DrawGradient(Color.FromArgb(109, 109, 111),
Color.FromArgb(26, 26, 29), ClientRectangle, 45S) 'Border Out
DrawGradient(Color.FromArgb(58, 58, 60), Color.FromArgb(14,
14, 14), New Rectangle(2, 2, Width - 4, Height - 4), 45S)

DrawBorders(New Pen(New SolidBrush(Color.Black)))

DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,

0)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,
-1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
0)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
-1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5,
-1)

DrawText(New SolidBrush(tColor), HorizontalAlignment.Left, 5,

0)
DrawCorners(Color.Cyan)
End Sub
Enum ColorTheme
GammaRay = 0
RedShift = 1
Subspace = 2
SolarFlare = 3
End Enum
Private _ThemeColor As ColorTheme
Public Property ThemeStyle() As ColorTheme
Get
Return _ThemeColor
End Get
Set(ByVal v As ColorTheme)
_ThemeColor = v
Invalidate()
End Set
End Property
End Class
Class DarkMatterAltTheme
Inherits ThemeContainer152

Sub New()
TransparencyKey = Color.Cyan
End Sub

Dim tGlow, tColor As Color

Protected Overrides Sub ColorHook()

End Sub

Dim T As New HatchBrush(HatchStyle.LightUpwardDiagonal,

Color.Black, Color.FromArgb(39, 39, 41))
Protected Overrides Sub PaintHook()
G.SmoothingMode = SmoothingMode.HighQuality

Select Case _ThemeColor

Case 0 'GammaRay
tGlow = Color.FromArgb(35, Color.LawnGreen)
tColor = Color.FromArgb(255, Color.LawnGreen)
Case 1 'RedShift
tGlow = Color.FromArgb(35, Color.Red)
tColor = Color.FromArgb(255, Color.Red)
Case 2 'SubSpace
tGlow = Color.FromArgb(35, Color.DodgerBlue)
tColor = Color.FromArgb(255, Color.DodgerBlue)
Case 3 'SolarFlare
tGlow = Color.FromArgb(35, Color.Gold)
tColor = Color.FromArgb(255, Color.Gold)
End Select

G.Clear(Color.FromArgb(39, 41, 41))

DrawGradient(Color.FromArgb(100, 100, 100),
Color.FromArgb(31, 31, 31), ClientRectangle, 90S)
DrawGradient(Color.FromArgb(53, 53, 54), Color.FromArgb(54,
54, 56), New Rectangle(2, 2, Width - 6, Height - 4), 90S)
DrawGradient(Color.FromArgb(31, 31, 31), Color.FromArgb(42,
42, 42), New Rectangle(2, 10, Width - 6, Height - 19), 90S)
G.FillRectangle(New SolidBrush(Color.FromArgb(15, 15, 17)),
New Rectangle(3, 11, Width - 7, Height - 20))
G.DrawLine(Pens.Black, 3, 11, 3, Height - 10)
G.DrawLine(Pens.Black, Width - 4, 11, Width - 4, Height - 10)

'DrawGradient(Color.FromArgb(109, 109, 111),

Color.FromArgb(26, 26, 29), ClientRectangle, 45S) 'Border Out
'DrawGradient(Color.FromArgb(58, 58, 60), Color.FromArgb(14,
14, 14), New Rectangle(2, 2, Width - 4, Height - 4), 45S)
 DrawBorders(New Pen(New SolidBrush(Color.Black)))

DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,

0)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 4,
-1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
0)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 6,
-1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5,
1)
DrawText(New SolidBrush(tGlow), HorizontalAlignment.Left, 5,
-1)

DrawText(New SolidBrush(tColor), HorizontalAlignment.Left, 5,

0)
DrawCorners(Color.Cyan)
End Sub
Enum ColorTheme
GammaRay = 0
RedShift = 1
Subspace = 2
SolarFlare = 3
End Enum
Private _ThemeColor As ColorTheme
Public Property ThemeStyle() As ColorTheme
Get
Return _ThemeColor
End Get
Set(ByVal v As ColorTheme)
_ThemeColor = v
Invalidate()
End Set
End Property
End Class
Class DarkMatterButton
Inherits ThemeControl152

Sub New()
BackColor = Color.FromArgb(59, 59, 61)
End Sub

Dim tGlow, tColor, tTheme, tGradA, tGradB, tBordA, tBordB,

tBorder As Color
Dim tAlign As HorizontalAlignment
 Dim tOffX, tOffY As Integer
Protected Overrides Sub ColorHook()
tAlign = HorizontalAlignment.Center
tOffX = -1
tOffY = -1
tGlow = Color.FromArgb(35, tTheme)
tColor = Color.FromArgb(255, tTheme)
End Sub

Protected Overrides Sub PaintHook()

G.Clear(Color.FromArgb(47, 47, 47))

Select Case _ThemeColor

Case 0 'GammaRay
tTheme = Color.LawnGreen
tGradA = Color.FromArgb(111, 208, 28) 'First Gradient
Color
tGradB = Color.FromArgb(92, 192, 5) 'Second Gradient
Color
tBordA = Color.FromArgb(213, 248, 188) 'First Border
Gradient Color
tBordB = Color.FromArgb(138, 207, 87) 'Second Border
Gradient Color
tBorder = Color.FromArgb(72, 152, 0) 'Outer Border
Color
Case 1 'RedShift
tTheme = Color.Red
tGradA = Color.FromArgb(236, 20, 16) 'First Gradient
Color
tGradB = Color.FromArgb(223, 5, 1) 'Second Gradient
Color
tBordA = Color.FromArgb(255, 198, 198) 'First Border
Gradient Color
tBordB = Color.FromArgb(232, 90, 89) 'Second Border
Gradient Color
tBorder = Color.FromArgb(184, 3, 1) 'Outer Border
Color
Case 2 'SubSpace
tTheme = Color.DodgerBlue
tGradA = Color.FromArgb(41, 149, 255) 'First Gradient
Color
tGradB = Color.FromArgb(33, 139, 255) 'Second
Gradient Color
tBordA = Color.FromArgb(218, 244, 255) 'First Border
Gradient Color
tBordB = Color.FromArgb(138, 191, 255) 'Second Border
Gradient Color
tBorder = Color.FromArgb(6, 84, 191) 'Outer Border
Color
Case 3 'SolarFlare
 tTheme = Color.Gold
tGradA = Color.FromArgb(255, 194, 69) 'First Gradient
Color
tGradB = Color.FromArgb(255, 180, 40) 'Second
Gradient Color
tBordA = Color.FromArgb(254, 248, 214) 'First Border
Gradient Color
tBordB = Color.FromArgb(255, 214, 144) 'Second Border
Gradient Color
tBorder = Color.FromArgb(211, 148, 27) 'Outer Border
Color
End Select

Select Case State

Case 0
tGlow = Color.FromArgb(30, tTheme)
tColor = Color.FromArgb(255, tTheme)

DrawGradient(Color.FromArgb(109, 109, 111),

Color.FromArgb(26, 26, 29), ClientRectangle, 45S)
DrawGradient(Color.FromArgb(58, 58, 60), Color.Black,
New Rectangle(2, 2, Width - 4, Height - 4), 45S)
DrawBorders(New Pen(New SolidBrush(Color.Black)))
Case 1
tGlow = Color.FromArgb(50, tTheme)
tColor = Color.FromArgb(255, tTheme)

DrawGradient(Color.FromArgb(109, 109, 111),

Color.FromArgb(26, 26, 29), ClientRectangle, 45S)
DrawGradient(Color.FromArgb(58, 58, 60), Color.Black,
New Rectangle(2, 2, Width - 4, Height - 4), 45S)
DrawBorders(New Pen(New SolidBrush(Color.Black)))
Case 2
tGlow = Color.FromArgb(20, Color.Black)
tColor = Color.FromArgb(255, Color.Black)

DrawGradient(tBordA, tBordB, ClientRectangle, 45S)

DrawGradient(tGradA, tGradB, New Rectangle(2, 2,
Width - 4, Height - 4), 45S)
DrawGradient(Color.FromArgb(60, Color.White),
Color.FromArgb(30, Color.White), New Rectangle(2, 2, Width - 4,
Height / 2 - 4), 90S)
DrawBorders(New Pen(New SolidBrush(tBorder)))
End Select

DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY)

DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY + 1)
DrawText(New SolidBrush(tGlow), tAlign, tOffX - 1, tOffY - 1)
DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY)
DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY + 1)
 DrawText(New SolidBrush(tGlow), tAlign, tOffX + 1, tOffY - 1)
DrawText(New SolidBrush(tGlow), tAlign, tOffX, tOffY + 1)
DrawText(New SolidBrush(tGlow), tAlign, tOffX, tOffY - 1)
DrawText(New SolidBrush(tColor), tAlign, tOffX, tOffY)

DrawCorners(BackColor)

End Sub
Enum ColorTheme
GammaRay = 0
RedShift = 1
Subspace = 2
SolarFlare = 3
End Enum
Private _ThemeColor As ColorTheme
Public Property ThemeStyle() As ColorTheme
Get
Return _ThemeColor
End Get
Set(ByVal v As ColorTheme)
_ThemeColor = v
Invalidate()
End Set
End Property

End Class
Class DarkMatterProgressBar
Inherits ThemeControl152

#Region " Properties "

Private _Maximum As Integer
Public Property Maximum() As Integer
Get
Return _Maximum
End Get
Set(ByVal v As Integer)
If v < _Value Then _Value = v
_Maximum = v
Invalidate()
End Set
End Property
Private _Value As Integer
Public Property Value() As Integer
Get
Return _Value
End Get
Set(ByVal v As Integer)
If v > Maximum Then v = Maximum
_Value = v
Invalidate()
 End Set
End Property
#End Region

Sub New()
'Defaults
Maximum = 100
Value = 0
LockHeight = 20
End Sub

Dim tColor, tGlow, tBorder As Color

Protected Overrides Sub ColorHook()
End Sub

Protected Overrides Sub PaintHook()

Select Case _ThemeColor

Case 0 'GammaRay
tColor = Color.FromArgb(200, 255, 82)
tGlow = Color.FromArgb(123, 221, 42)
tBorder = Color.FromArgb(31, 91, 31)
Case 1 'RedShift
tColor = Color.FromArgb(255, 45, 45)
tGlow = Color.FromArgb(255, 45, 45)
tBorder = Color.FromArgb(158, 7, 7)
Case 2 'Subspace
tColor = Color.FromArgb(78, 203, 255)
tGlow = Color.FromArgb(0, 48, 255)
tBorder = Color.Empty
Case 3 'SolarFlare
tColor = Color.FromArgb(255, 238, 142)
tGlow = Color.FromArgb(255, 188, 74)
tBorder = Color.FromArgb(110, 61, 37)
End Select

G.Clear(Color.FromArgb(31, 31, 31))

G.FillRectangle(New SolidBrush(Color.FromArgb(12, 12, 12)),

New Rectangle(6, Height / 2 - 3, Width - 12, 5))
G.DrawRectangle(Pens.Black, New Rectangle(6, Height / 2 - 3,
Width - 12, 5))

Select Case _Value

Case Is > 0
DrawGradient(tGlow, tGlow, 6, Height / 2 - 3,
CInt(_Value / _Maximum * (Width - 11)), 6, 90S)
DrawGradient(tColor, tColor, 6, Height / 2 - 2,
CInt(_Value / _Maximum * (Width - 11)), 3, 90S)
 G.DrawRectangle(New Pen(New SolidBrush(tBorder)), New
Rectangle(6, Height / 2 - 3, CInt(_Value / _Maximum * (Width - 11)),
6))
DrawCorners(Color.FromArgb(31, 31, 31), New
Rectangle(6, Height / 2 - 3, CInt(_Value / _Maximum * (Width - 9)),
7))

End Select
DrawBorders(New Pen(New SolidBrush(Color.FromArgb(25, 25,
25))))
End Sub
Sub Increment(ByVal Ammount As Integer)
If Value < Maximum - Ammount Then
Value = Ammount
Invalidate()
ElseIf Maximum < Value Then
Value = Maximum
ElseIf Ammount > Maximum Then
Value = Maximum
End If
End Sub

Enum ColorTheme
GammaRay = 0
RedShift = 1
Subspace = 2
SolarFlare = 3
End Enum
Private _ThemeColor As ColorTheme
Public Property ThemeStyle() As ColorTheme
Get
Return _ThemeColor
End Get
Set(ByVal v As ColorTheme)
_ThemeColor = v
Invalidate()
End Set
End Property
End Class