#Region " Imports "
 
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
 
#End Region
#Region " RoundRectangle "
 
Module RoundRectangle
    Public Function RoundRect(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
        Dim P As GraphicsPath = New GraphicsPath()
        Dim ArcRectangleWidth As Integer = Curve * 2
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
        P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
        Return P
    End Function
End Module
 
#End Region
 
 
 
#Region " ThemeContainer "
 
Class Chili_ThemeContainer
    Inherits ContainerControl
 
#Region " Enums "
 
    Enum MouseState As Byte
        None = 0
        Over = 1
        Down = 2
        Block = 3
    End Enum
 
#End Region
#Region " Variables "
 
    Private HeaderRect As Rectangle
    Protected State As MouseState
    Private MoveHeight As Integer
    Private MouseP As Point = New Point(0, 0)
    Private Cap As Boolean = False
    Private HasShown As Boolean
 
#End Region
#Region " Properties "
 
    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 _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 _RoundCorners As Boolean = True
    Property RoundCorners() As Boolean
        Get
            Return _RoundCorners
        End Get
        Set(ByVal value As Boolean)
            _RoundCorners = value
            Invalidate()
        End Set
    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 _ControlMode As Boolean
    Protected Property ControlMode() As Boolean
        Get
            Return _ControlMode
        End Get
        Set(ByVal v As Boolean)
            _ControlMode = v
            Invalidate()
        End Set
    End Property
 
    Private _StartPosition As FormStartPosition
    Property StartPosition As FormStartPosition
        Get
            If _IsParentForm AndAlso Not _ControlMode Then Return ParentForm.StartPosition Else Return _StartPosition
        End Get
        Set(ByVal value As FormStartPosition)
            _StartPosition = value
 
            If _IsParentForm AndAlso Not _ControlMode Then
                ParentForm.StartPosition = value
            End If
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    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
                Me.ParentForm.FormBorderStyle = FormBorderStyle.None
                Me.ParentForm.TransparencyKey = Color.Fuchsia
 
                If Not DesignMode Then
                    AddHandler ParentForm.Shown, AddressOf FormShown
                End If
            End If
            Parent.BackColor = BackColor
            '   Parent.MinimumSize = New Size(261, 65)
        End If
    End Sub
 
    Protected NotOverridable Overrides Sub OnSizeChanged(ByVal e As EventArgs)
        MyBase.OnSizeChanged(e)
        If Not _ControlMode Then HeaderRect = New Rectangle(0, 0, Width - 14, MoveHeight - 7)
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(e)
        Focus()
        If e.Button = Windows.Forms.MouseButtons.Left Then SetState(MouseState.Down)
        If Not (_IsParentForm AndAlso ParentForm.WindowState = FormWindowState.Maximized OrElse _ControlMode) Then
            If HeaderRect.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
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(e)
        Cap = False
    End Sub
 
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
        If Not (_IsParentForm AndAlso ParentForm.WindowState = FormWindowState.Maximized) Then
            If _Sizable AndAlso Not _ControlMode Then InvalidateMouse()
        End If
        If Cap Then
            Parent.Location = MousePosition - MouseP
        End If
    End Sub
 
    Protected Overrides Sub OnInvalidated(ByVal e As System.Windows.Forms.InvalidateEventArgs)
        MyBase.OnInvalidated(e)
        ParentForm.Text = Text
    End Sub
 
    Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
        MyBase.OnPaintBackground(e)
    End Sub
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        Invalidate()
    End Sub
 
    Private Sub FormShown(ByVal sender As Object, ByVal e As EventArgs)
        If _ControlMode OrElse HasShown Then Return
 
        If _StartPosition = FormStartPosition.CenterParent OrElse _StartPosition = FormStartPosition.CenterScreen Then
            Dim SB As Rectangle = Screen.PrimaryScreen.Bounds
            Dim CB As Rectangle = ParentForm.Bounds
            ParentForm.Location = New Point(SB.Width \ 2 - CB.Width \ 2, SB.Height \ 2 - CB.Width \ 2)
        End If
        HasShown = True
    End Sub
 
#End Region
 
    Protected Overrides Sub CreateHandle()
        MyBase.CreateHandle()
    End Sub
 
    Sub New()
        SetStyle(DirectCast(139270, ControlStyles), True)
        BackColor = Color.FromArgb(33, 36, 38)
        'Padding = New Padding(10, 70, 10, 9)
        DoubleBuffered = True
        Dock = DockStyle.Fill
        MoveHeight = 166
        Font = New Font("Segoe UI", 9)
    End Sub
 
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics = e.Graphics
 
        G.Clear(Color.FromArgb(33, 36, 38))
        G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), New Rectangle(0, 0, Width, 60))
 
        If _RoundCorners = True Then
 
            G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), Width - 2, Height - 3, 1, 1)
            G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), Width - 2, Height - 4, 1, 1)
            G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), Width - 4, Height - 2, 1, 1)
            G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), Width - 3, Height - 2, 1, 1)
        End If
    End Sub
End Class
 
#End Region
#Region " ControlBox "
'
Class Chili_ControlBox
    Inherits Control
 
#Region " Enums "
 
    Enum ButtonHoverState
        Minimize
        Close
        None
    End Enum
 
#End Region
#Region " Variables "
 
    Private ButtonHState As ButtonHoverState = ButtonHoverState.None
 
#End Region
#Region " Properties "
 
    Private _EnableMaximize As Boolean = True
    Property EnableMaximizeButton() As Boolean
        Get
            Return _EnableMaximize
        End Get
        Set(ByVal value As Boolean)
            _EnableMaximize = value
            Invalidate()
        End Set
    End Property
 
    Private _EnableMinimize As Boolean = True
    Property EnableMinimizeButton() As Boolean
        Get
            Return _EnableMinimize
        End Get
        Set(ByVal value As Boolean)
            _EnableMinimize = value
            Invalidate()
        End Set
    End Property
 
    Private _EnableHoverHighlight As Boolean = False
    Property EnableHoverHighlight() As Boolean
        Get
            Return _EnableHoverHighlight
        End Get
        Set(ByVal value As Boolean)
            _EnableHoverHighlight = value
            Invalidate()
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    Protected Overrides Sub OnResize(ByVal e As EventArgs)
        MyBase.OnResize(e)
        Size = New Size(100, 25)
    End Sub
 
    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
        MyBase.OnMouseMove(e)
        Dim X As Integer = e.Location.X
        Dim Y As Integer = e.Location.Y
        If Y > 0 AndAlso Y < (Height - 2) Then
            If X > 0 AndAlso X < 40 Then
                ButtonHState = ButtonHoverState.Minimize
            ElseIf X > 64 AndAlso X < Width Then
                ButtonHState = ButtonHoverState.Close
            Else
                ButtonHState = ButtonHoverState.None
            End If
        Else
            ButtonHState = ButtonHoverState.None
        End If
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        Select Case ButtonHState
            Case ButtonHoverState.Close
                Parent.FindForm().Close()
            Case ButtonHoverState.Minimize
                If _EnableMinimize = True Then
                    Parent.FindForm().WindowState = FormWindowState.Minimized
                End If
        End Select
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
        MyBase.OnMouseLeave(e)
        ButtonHState = ButtonHoverState.None : Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        Focus()
    End Sub
 
#End Region
 
    Sub New()
        MyBase.New()
        DoubleBuffered = True
        Anchor = AnchorStyles.Top Or AnchorStyles.Right
    End Sub
 
    Protected Overrides Sub OnCreateControl()
        MyBase.OnCreateControl()
 
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics = e.Graphics
        G.Clear(Color.FromArgb(33, 36, 38))
 
        If _EnableHoverHighlight = True Then
            Select Case ButtonHState
                Case ButtonHoverState.None
                    G.Clear(Color.FromArgb(33, 36, 38))
                Case ButtonHoverState.Minimize
                    If _EnableMinimize = True Then
                        G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), New Rectangle(3, 0, 35, Height))
                    End If
                Case ButtonHoverState.Close
                    G.FillRectangle(New SolidBrush(Color.FromArgb(33, 36, 38)), New Rectangle(66, 0, 35, Height))
            End Select
        End If
 
        G.DrawString("r", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(119, 131, 141)), New Point(Width - 16, 8), New StringFormat With {.Alignment = StringAlignment.Center})
 
        If _EnableMinimize = True Then
            G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(119, 131, 141)), New Point(40, 7), New StringFormat With {.Alignment = StringAlignment.Center})
        Else
            G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(119, 131, 141)), New Point(40, 7), New StringFormat With {.Alignment = StringAlignment.Center})
        End If
    End Sub
End Class
'
#End Region
#Region " Button "
 
 
 
 
Class ChiliButton : Inherits Control
 
 
    Dim _state As MouseState
#Region "Declaration and shits"
    Public Function RoundRect(ByVal rectangle As Rectangle, ByVal curve As Integer) As GraphicsPath
        Dim p As GraphicsPath = New GraphicsPath()
        Dim arcRectangleWidth As Integer = curve * 1
        p.AddArc(New Rectangle(rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -180, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -90, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 0, 90)
        p.AddArc(New Rectangle(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 90, 90)
        p.AddLine(New Point(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y), New Point(rectangle.X, curve + rectangle.Y))
        Return p
    End Function
    Public Function RoundRect(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal curve As Integer) As GraphicsPath
        Dim rectangle As Rectangle = New Rectangle(x, y, width, height)
        Dim p As GraphicsPath = New GraphicsPath()
        Dim arcRectangleWidth As Integer = curve * 1
        p.AddArc(New Rectangle(rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -180, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -90, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 0, 90)
        p.AddArc(New Rectangle(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 90, 90)
        p.AddLine(New Point(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y), New Point(rectangle.X, curve + rectangle.Y))
        Return p
    End Function
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        _state = MouseState.Down
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        MyBase.OnMouseUp(e)
        _state = MouseState.Over
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
        MyBase.OnMouseEnter(e)
        _state = MouseState.Over
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
        MyBase.OnMouseLeave(e)
        _state = MouseState.None
        Invalidate()
    End Sub
 
#End Region
 
 
    Sub New()
        SetStyle(ControlStyles.UserPaint Or ControlStyles.ResizeRedraw Or ControlStyles.SupportsTransparentBackColor, True)
        BackColor = Color.Transparent
        DoubleBuffered = True
        Size = New Size(150, 28)
        _state = MouseState.None
    End Sub
 
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim b As Bitmap = New Bitmap(Width, Height)
        Dim g As Graphics = Graphics.FromImage(b)
        Dim rect As Rectangle = New Rectangle(0, 0, Width - 1, Height - 1)
        Dim btnfont As New Font("Verdana", 8, FontStyle.Regular)
        MyBase.OnPaint(e)
        g.SmoothingMode = SmoothingMode.HighQuality
        g.InterpolationMode = InterpolationMode.HighQualityBicubic
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        g.Clear(BackColor)
        Dim buttonrect As New LinearGradientBrush(rect, Color.FromArgb(0, 161, 255), Color.FromArgb(0, 161, 255), LinearGradientMode.Vertical)
        g.FillPath(buttonrect, RoundRect(rect, 1))
        g.DrawPath(New Pen(Color.FromArgb(0, 161, 255)), RoundRect(rect, 1))
        Select Case _state
            Case MouseState.None
                Dim buttonrectnone As New LinearGradientBrush(rect, Color.FromArgb(0, 161, 255), Color.FromArgb(0, 161, 255), LinearGradientMode.Vertical)
                g.FillPath(buttonrectnone, RoundRect(rect, 1))
                g.DrawPath(New Pen(Color.FromArgb(0, 161, 255)), RoundRect(rect, 3))
                g.DrawString(Text, btnfont, Brushes.White, New Rectangle(0, 0, Width - 1, Height - 1), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
            Case MouseState.Over
                Dim buttonrectnone As New LinearGradientBrush(rect, Color.FromArgb(0, 161, 255), Color.FromArgb(0, 161, 255), LinearGradientMode.Vertical)
                g.FillPath(buttonrectnone, RoundRect(rect, 1))
                g.DrawPath(New Pen(Color.FromArgb(0, 161, 255)), RoundRect(rect, 3))
                g.DrawString(Text, btnfont, Brushes.White, New Rectangle(0, 0, Width - 1, Height - 1), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
            Case MouseState.Down
                Dim buttonrectnone As New LinearGradientBrush(rect, Color.FromArgb(0, 153, 243), Color.FromArgb(0, 153, 243), LinearGradientMode.Vertical)
                g.FillPath(buttonrectnone, RoundRect(rect, 1))
                g.DrawPath(New Pen(Color.FromArgb(0, 153, 243)), RoundRect(rect, 3))
                g.DrawString(Text, btnfont, Brushes.White, New Rectangle(0, 0, Width - 1, Height - 1), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
        End Select
        e.Graphics.DrawImage(b, New Point(0, 0))
        g.Dispose() : b.Dispose()
    End Sub
End Class
 
 
 
#End Region
#Region " Toggle Button "
 
<DefaultEvent("ToggledChanged")> Class Chili_Toggle
    Inherits Control
 
#Region " Enums "
 
    Enum _Type
        OnOff
    End Enum
 
#End Region
#Region " Variables "
 
    Event ToggledChanged()
    Private _Toggled As Boolean
    Private ToggleType As _Type
    Private Bar As Rectangle
    Private _Width, _Height As Integer
 
#End Region
#Region " Properties "
 
    Public Property Toggled() As Boolean
        Get
            Return _Toggled
        End Get
        Set(ByVal value As Boolean)
            _Toggled = value
            Invalidate()
            RaiseEvent ToggledChanged()
        End Set
    End Property
 
    Public Property Type As _Type
        Get
            Return ToggleType
        End Get
        Set(value As _Type)
            ToggleType = value
            Invalidate()
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    Protected Overrides Sub OnResize(e As EventArgs)
        MyBase.OnResize(e)
        Me.Size = New Size(70, 30)
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(e)
        Toggled = Not Toggled
        Focus()
    End Sub
 
#End Region
 
    Sub New()
        SetStyle(ControlStyles.AllPaintingInWmPaint Or _
                  ControlStyles.DoubleBuffer Or _
                  ControlStyles.ResizeRedraw Or _
                  ControlStyles.UserPaint, True)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics = e.Graphics
 
        G.SmoothingMode = SmoothingMode.HighQuality
        G.Clear(Parent.BackColor)
        _Width = Width - 2 : _Height = Height - 2
 
        Dim GP, GP2 As New GraphicsPath
        Dim BaseRect As New Rectangle(0, 0, _Width, _Height)
        Dim ThumbRect As New Rectangle(CInt(_Width \ 2), 0, 38, _Height)
 
        With G
            .SmoothingMode = 2
            .PixelOffsetMode = 2
            .TextRenderingHint = 5
            .Clear(BackColor)
 
            GP = RoundRect(BaseRect, 1)
            ThumbRect = New Rectangle(CInt(_Width \ 2) - 2, 1, 35, _Height - 2)
            GP2 = RoundRect(ThumbRect, 1)
            .FillPath(New SolidBrush(Color.FromArgb(63, 70, 73)), GP)
            .FillPath(New SolidBrush(Color.FromArgb(32, 35, 37)), GP2) '32, 35, 37
 
            If _Toggled Then
                GP = RoundRect(BaseRect, 1)
                ThumbRect = New Rectangle(0, 0, 35, _Height - 0)
                GP2 = RoundRect(ThumbRect, 1)
                .FillPath(New SolidBrush(Color.FromArgb(63, 70, 73)), GP)
                .FillPath(New SolidBrush(Color.FromArgb(0, 161, 255)), GP2)
            End If
 
            ' Draw string
            Select Case ToggleType
                Case _Type.OnOff
                    If Toggled Then
                        G.DrawString("t", New Font("Marlett", 11, FontStyle.Regular), Brushes.WhiteSmoke, Bar.X + 17, Bar.Y + 16, New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
                    Else
                        G.DrawString("r", New Font("Marlett", 11, FontStyle.Regular), Brushes.DimGray, Bar.X + 50, Bar.Y + 16, New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
                    End If
            End Select
        End With
    End Sub
End Class
 
#End Region
#Region " Social Button "
 
Class Chili_SocialButton
    Inherits Control
 
#Region " Variables "
 
    Private EllipseColor As Color = Color.FromArgb(127, 187, 25)
    Private EllipseColor2 As Color = Color.FromArgb(33, 36, 38)
 
#End Region
#Region " Properties "
 
    Private O As _Options
    <Flags()> _
    Enum _Options
        Normal
        Warning
    End Enum
 
    <Category("Options")> _
    Public Property Style As _Options
        Get
            Return O
        End Get
        Set(value As _Options)
            O = value
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    Protected Overrides Sub OnResize(e As EventArgs)
        MyBase.OnResize(e)
        Me.Size = New Size(100, 100)
    End Sub
 
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
        MyBase.OnMouseEnter(e)
        EllipseColor = EllipseColor
        Refresh()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        MyBase.OnMouseLeave(e)
        EllipseColor = EllipseColor
        Refresh()
    End Sub
 
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        EllipseColor = EllipseColor
        Focus()
        Refresh()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
        MyBase.OnMouseUp(e)
        EllipseColor = EllipseColor
        Refresh()
    End Sub
 
#End Region
 
 
 
 
    Sub New()
        DoubleBuffered = True
        Font = New Font("Verdana", 20, FontStyle.Regular)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Select Case O
            Case _Options.Normal
                EllipseColor = Color.FromArgb(127, 187, 25)
                Dim G As Graphics = e.Graphics
                G.Clear(Parent.BackColor)
                G.SmoothingMode = SmoothingMode.HighQuality
                G.DrawEllipse(New Pen(EllipseColor), New Rectangle(10, 10, 85, 85))
                G.FillEllipse(New SolidBrush(EllipseColor2), New Rectangle(0, 0, 23, 23))
                G.DrawString("✓", New Font("Verdana", 20, FontStyle.Bold), New SolidBrush(EllipseColor), New Rectangle(0, 0, Width + 8, Height + 8), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
            Case _Options.Warning
                EllipseColor = Color.FromArgb(255, 31, 31)
                Dim G As Graphics = e.Graphics
                G.Clear(Parent.BackColor)
                G.SmoothingMode = SmoothingMode.HighQuality
                G.DrawEllipse(New Pen(EllipseColor), New Rectangle(10, 10, 85, 85))
                G.FillEllipse(New SolidBrush(EllipseColor2), New Rectangle(0, 0, 23, 23))
                G.DrawString("✕", New Font("Verdana", 20, FontStyle.Bold), New SolidBrush(EllipseColor), New Rectangle(0, 0, Width + 8, Height + 8), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
        End Select
 
 
 
 
    End Sub
End Class
 
#End Region
#Region " Label "
 
Class Chili_Label
    Inherits Label
 
    Sub New()
        Font = New Font("Arial", 7)
        ForeColor = Color.FromArgb(116, 125, 132)
        BackColor = Color.Transparent
    End Sub
End Class
 
#End Region
#Region " Panel "
 
Class Chili_Panel
    Inherits ContainerControl
 
    Private Shape As GraphicsPath
    Private Basecolor As Color
    Private Basecolor2 As Color
 
    Private O As _Options
    <Flags()> _
    Enum _Options
        Big
        Small
    End Enum
 
    <Category("Options")> _
    Public Property Style As _Options
        Get
            Return O
        End Get
        Set(value As _Options)
            O = value
        End Set
    End Property
 
    Sub New()
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        SetStyle(ControlStyles.UserPaint, True)
        Select Case O
            Case _Options.Big
                BackColor = Color.FromArgb(85, 94, 102)
                Basecolor = Color.FromArgb(85, 94, 102)
            Case _Options.Small
                BackColor = Color.FromArgb(64, 71, 77)
                Basecolor2 = Color.FromArgb(64, 71, 77)
        End Select
        Me.Size = New Size(187, 117)
        Padding = New Padding(5, 5, 5, 5)
        DoubleBuffered = True
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
        MyBase.OnMouseEnter(e)
        Select Case O
            Case _Options.Big
                Basecolor = Color.FromArgb(0, 161, 255)
            Case _Options.Small
                Basecolor2 = Color.FromArgb(0, 161, 255)
        End Select
        Refresh()
    End Sub
 
 
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        MyBase.OnMouseDown(e)
        Select Case O
            Case _Options.Big
                Basecolor = Color.FromArgb(0, 161, 255)
            Case _Options.Small
                Basecolor2 = Color.FromArgb(0, 161, 255)
        End Select
        Focus()
        Refresh()
    End Sub
 
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
        MyBase.OnMouseUp(e)
        Select Case O
            Case _Options.Big
                Basecolor = Color.FromArgb(0, 161, 255)
            Case _Options.Small
                Basecolor2 = Color.FromArgb(0, 161, 255)
        End Select
        Refresh()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        MyBase.OnMouseLeave(e)
        Select Case O
            Case _Options.Big
                Basecolor = Color.FromArgb(85, 94, 102)
            Case _Options.Small
                Basecolor2 = Color.FromArgb(64, 71, 77)
        End Select
 
        Refresh()
    End Sub
    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
        MyBase.OnResize(e)
 
        Shape = New GraphicsPath
        With Shape
            .AddArc(0, 0, 10, 10, 180, 90)
            .AddArc(Width - 11, 0, 10, 10, -90, 90)
            .AddArc(Width - 11, Height - 11, 10, 10, 0, 90)
            .AddArc(0, Height - 11, 10, 10, 90, 90)
            .CloseAllFigures()
        End With
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Select Case O
            Case _Options.Big
                Size = New Size(150, 150)
                MyBase.OnPaint(e)
                Dim B As New Bitmap(Width, Height)
                Dim G = Graphics.FromImage(B)
 
                G.SmoothingMode = SmoothingMode.HighQuality
 
                G.Clear(Basecolor)
                G.FillPath(New SolidBrush(Basecolor), Shape)
                G.DrawPath(New Pen(Basecolor), Shape)
 
                G.Dispose()
                e.Graphics.DrawImage(B.Clone(), 0, 0)
                B.Dispose()
            Case _Options.Small
                Size = New Size(73, 73)
                MyBase.OnPaint(e)
                Dim B As New Bitmap(Width, Height)
                Dim G = Graphics.FromImage(B)
 
                G.SmoothingMode = SmoothingMode.HighQuality
 
                G.Clear(Basecolor2)
                G.FillPath(New SolidBrush(Basecolor2), Shape)
                G.DrawPath(New Pen(Basecolor2), Shape)
 
                G.Dispose()
                e.Graphics.DrawImage(B.Clone(), 0, 0)
                B.Dispose()
        End Select
 
 
    End Sub
End Class
 
#End Region
#Region " Radio Button "
 
<DefaultEvent("CheckedChanged")> Class Chili_RadioButton
    Inherits Control
#Region " Variables "
 
    Private X As Integer
    Private _Checked As Boolean
 
#End Region
#Region " Properties "
 
    Property Checked() As Boolean
        Get
            Return _Checked
        End Get
        Set(ByVal value As Boolean)
            _Checked = value
            InvalidateControls()
            RaiseEvent CheckedChanged(Me)
            Invalidate()
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    Event CheckedChanged(ByVal sender As Object)
 
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        If Not _Checked Then Checked = True
        Focus()
        MyBase.OnMouseDown(e)
    End Sub
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
        X = e.X
        Invalidate()
    End Sub
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        Dim textSize As Integer
        textSize = Me.CreateGraphics.MeasureString(Text, Font).Width
        Me.Width = 28 + textSize
    End Sub
 
    Protected Overrides Sub OnResize(e As EventArgs)
        MyBase.OnResize(e)
        Me.Height = 17
    End Sub
 
#End Region
 
    Public Sub New()
        Width = 159
        Height = 17
        DoubleBuffered = True
    End Sub
 
 
 
    Private Sub InvalidateControls()
        If Not IsHandleCreated OrElse Not _Checked Then Return
 
        For Each _Control As Control In Parent.Controls
            If _Control IsNot Me AndAlso TypeOf _Control Is Chili_RadioButton Then
                DirectCast(_Control, Chili_RadioButton).Checked = False
            End If
        Next
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics = e.Graphics
        G.Clear(Parent.BackColor)
        G.SmoothingMode = SmoothingMode.HighQuality
 
        G.FillEllipse(New SolidBrush(Color.FromArgb(254, 254, 254)), New Rectangle(0, 0, 16, 16))
 
        If _Checked Then
            G.Clear(Parent.BackColor)
            G.FillEllipse(New SolidBrush(Color.FromArgb(0, 160, 254)), New Rectangle(0, 0, 16, 16))
            G.FillEllipse(New SolidBrush(Color.FromArgb(254, 254, 254)), New Rectangle(5, 5, 6, 6))
        End If
 
        G.DrawString(Text, Font, New SolidBrush(Color.FromArgb(116, 125, 132)), New Point(20, 0))
    End Sub
End Class
 
#End Region
#Region " CheckBox "
 
<DefaultEvent("CheckedChanged")> Class Chili_CheckBox
    Inherits Control
 
#Region " Variables "
 
    Private X As Integer
    Private _Checked As Boolean = False
    Private Shape As GraphicsPath
 
#End Region
#Region " Properties "
 
    Property Checked() As Boolean
        Get
            Return _Checked
        End Get
        Set(ByVal value As Boolean)
            _Checked = value
            Invalidate()
        End Set
    End Property
 
#End Region
#Region " EventArgs "
 
    Event CheckedChanged(ByVal sender As Object)
 
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
        X = e.Location.X
        Invalidate()
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        _Checked = Not _Checked
        Focus()
        RaiseEvent CheckedChanged(Me)
        MyBase.OnMouseDown(e)
    End Sub
 
    Protected Overrides Sub OnResize(e As EventArgs)
        MyBase.OnResize(e)
 
        Me.Height = 16
 
        Shape = New GraphicsPath
        With Shape
            .AddArc(0, 0, 10, 10, 180, 90)
            .AddArc(Width - 11, 0, 10, 10, -90, 90)
            .AddArc(Width - 11, Height - 11, 10, 10, 0, 90)
            .AddArc(0, Height - 11, 10, 10, 90, 90)
            .CloseAllFigures()
        End With
        Invalidate()
    End Sub
 
#End Region
 
    Sub New()
        Width = 148
        Height = 16
        Font = New Font("Microsoft Sans Serif", 9)
        DoubleBuffered = True
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics = e.Graphics
        G.Clear(Parent.BackColor)
 
        If _Checked Then
            G.FillRectangle(New SolidBrush(Color.FromArgb(0, 161, 255)), New Rectangle(0, 0, 16, 16))
            G.FillRectangle(New SolidBrush(Color.FromArgb(0, 161, 255)), New Rectangle(1, 1, 16 - 2, 16 - 2))
        Else
            G.FillRectangle(New SolidBrush(Color.FromArgb(254, 254, 254)), New Rectangle(0, 0, 16, 16))
            G.FillRectangle(New SolidBrush(Color.FromArgb(254, 254, 254)), New Rectangle(1, 1, 16 - 2, 16 - 2))
        End If
 
        If Enabled = True Then
            If _Checked Then G.DrawString("a", New Font("Marlett", 12), New SolidBrush(Color.FromArgb(254, 254, 254)), New Point(-2, -1))
        Else
            If _Checked Then G.DrawString("a", New Font("Marlett", 12), New SolidBrush(Color.Gray), New Point(-5, -3))
        End If
 
        G.DrawString(Text, Font, New SolidBrush(Color.FromArgb(116, 125, 132)), New Point(20, 0))
    End Sub
End Class
#End Region
#Region " TextBox "
 
<DefaultEvent("TextChanged")> Class Chili_TextBox
    Inherits Control
 
#Region " Variables "
 
    Public WithEvents ChiliTB As New TextBox
    Private _maxchars As Integer = 32767
    Private _ReadOnly As Boolean
    Private _Multiline As Boolean
    Private _Image As Image
    Private _ImageSize As Size
    Private ALNType As HorizontalAlignment
    Private isPasswordMasked As Boolean = False
    Private P1 As Pen
    Private B1 As SolidBrush
    Private Shape As GraphicsPath
 
#End Region
#Region " Properties "
 
    Public Shadows Property TextAlignment() As HorizontalAlignment
        Get
            Return ALNType
        End Get
        Set(ByVal Val As HorizontalAlignment)
            ALNType = Val
            Invalidate()
        End Set
    End Property
    Public Shadows Property MaxLength() As Integer
        Get
            Return _maxchars
        End Get
        Set(ByVal Val As Integer)
            _maxchars = Val
            ChiliTB.MaxLength = MaxLength
            Invalidate()
        End Set
    End Property
 
    Public Shadows Property UseSystemPasswordChar() As Boolean
        Get
            Return isPasswordMasked
        End Get
        Set(ByVal Val As Boolean)
            ChiliTB.UseSystemPasswordChar = UseSystemPasswordChar
            isPasswordMasked = Val
            Invalidate()
        End Set
    End Property
 
 
 
 
#End Region
#Region " EventArgs "
 
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
        MyBase.OnForeColorChanged(e)
        ChiliTB.ForeColor = ForeColor
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs)
        MyBase.OnFontChanged(e)
        ChiliTB.Font = Font
    End Sub
 
    Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
        MyBase.OnPaintBackground(e)
    End Sub
 
 
 
    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
        MyBase.OnResize(e)
 
    End Sub
 
    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        MyBase.OnGotFocus(e)
        ChiliTB.Focus()
    End Sub
 
    Sub _TextChanged() Handles ChiliTB.TextChanged
        Text = ChiliTB.Text
    End Sub
 
    Sub _BaseTextChanged() Handles MyBase.TextChanged
        ChiliTB.Text = Text
    End Sub
 
#End Region
 
    Sub AddTextBox()
        With ChiliTB
            .Location = New Point(8, 10)
            .Text = String.Empty
            .BorderStyle = BorderStyle.None
            .TextAlign = HorizontalAlignment.Left
            .Font = New Font("Tahoma", 8)
            .ForeColor = Color.White
            .UseSystemPasswordChar = UseSystemPasswordChar
            .Multiline = False
            .BackColor = Color.FromArgb(66, 76, 85)
            .ScrollBars = ScrollBars.None
        End With
        'AddHandler ChiliTB.KeyDown, AddressOf _OnKeyDown
        'AddHandler ChiliTB.Enter, AddressOf _Enter
        'AddHandler ChiliTB.Leave, AddressOf _Leave
    End Sub
 
    Sub New()
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        SetStyle(ControlStyles.UserPaint, True)
 
        AddTextBox()
        Controls.Add(ChiliTB)
 
        'P1 = New Pen(Color.FromArgb(66, 76, 85))
        B1 = New SolidBrush(Color.FromArgb(66, 76, 85))
        BackColor = Color.Transparent
        ForeColor = Color.White
 
        Text = Nothing
        Font = New Font("Tahoma", 11)
        Size = New Size(118, 28)
        DoubleBuffered = True
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim B = New Bitmap(Width, Height) : Dim G = Graphics.FromImage(B)
        Dim W = Width + 20 : Dim H = Height + 1
 
        Dim Base As New Rectangle(-1, 50, W + 7, H + 20)
 
        With G
            .SmoothingMode = 2
            .PixelOffsetMode = 2
            .TextRenderingHint = 5
            .Clear(BackColor)
 
            '-- Colors
            BackColor = Color.FromArgb(66, 76, 85)
 
            '-- Base
            .FillRectangle(New SolidBrush(Color.FromArgb(66, 76, 85)), Base)
            .DrawString(Text, New Font("Tahoma", 11), New SolidBrush(Color.White), W - 1, H + 50)
        End With
 
        MyBase.OnPaint(e)
        G.Dispose()
        e.Graphics.InterpolationMode = 7
        e.Graphics.DrawImageUnscaled(B, 0, 0)
        B.Dispose()
    End Sub
End Class
 
#End Region
Class ChiliTextbox : Inherits Control
    Dim WithEvents _tb As New TextBox
 
 
    Private O As _Options
    <Flags()> _
    Enum _Options
        Enabled
        Disabled
    End Enum
 
    <Category("Options")> _
    Public Property TextboxStyle As _Options
        Get
            Return O
        End Get
        Set(value As _Options)
            O = value
        End Set
    End Property
 
 
    <Category("Colors")> _
    Public Property BaseColor() As Color
        Get
            Return _BaseColor
        End Get
        Set(value As Color)
            _BaseColor = value
        End Set
    End Property
 
    <Category("Colors")> _
    Public Property BackgroundText() As Color
        Get
            Return _BackgroundText
        End Get
        Set(value As Color)
            _BackgroundText = value
        End Set
    End Property
 
    Private _BaseColor As Color = Color.FromArgb(63, 70, 76)
    Private _BackgroundText As Color = Color.FromArgb(63, 70, 76)
 
 
#Region "Declaration and shits"
    Public Function RoundRect(ByVal rectangle As Rectangle, ByVal curve As Integer) As GraphicsPath
        Dim p As GraphicsPath = New GraphicsPath()
        Dim arcRectangleWidth As Integer = curve * 2
        p.AddArc(New Rectangle(rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -180, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -90, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 0, 90)
        p.AddArc(New Rectangle(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 90, 90)
        p.AddLine(New Point(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y), New Point(rectangle.X, curve + rectangle.Y))
        Return p
    End Function
    Public Function RoundRect(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal curve As Integer) As GraphicsPath
        Dim rectangle As Rectangle = New Rectangle(x, y, width, height)
        Dim p As GraphicsPath = New GraphicsPath()
        Dim arcRectangleWidth As Integer = curve * 2
        p.AddArc(New Rectangle(rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -180, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Y, arcRectangleWidth, arcRectangleWidth), -90, 90)
        p.AddArc(New Rectangle(rectangle.Width - arcRectangleWidth + rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 0, 90)
        p.AddArc(New Rectangle(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y, arcRectangleWidth, arcRectangleWidth), 90, 90)
        p.AddLine(New Point(rectangle.X, rectangle.Height - arcRectangleWidth + rectangle.Y), New Point(rectangle.X, curve + rectangle.Y))
        Return p
    End Function
 
    Private _allowpassword As Boolean = False
    Public Shadows Property UseSystemPasswordChar() As Boolean
        Get
            Return _allowpassword
        End Get
        Set(ByVal value As Boolean)
            _tb.UseSystemPasswordChar = UseSystemPasswordChar
            _allowpassword = value
            Invalidate()
        End Set
    End Property
 
    Private _maxChars As Integer = 32767
    Public Shadows Property MaxLength() As Integer
        Get
            Return _maxChars
        End Get
        Set(ByVal value As Integer)
            _maxChars = value
            _tb.MaxLength = MaxLength
            Invalidate()
        End Set
    End Property
 
    Private _textAlignment As HorizontalAlignment
    Public Shadows Property TextAlign() As HorizontalAlignment
        Get
            Return _textAlignment
        End Get
        Set(ByVal value As HorizontalAlignment)
            _textAlignment = value
            Invalidate()
        End Set
    End Property
 
    Private _multiLine As Boolean = False
    Public Shadows Property MultiLine() As Boolean
        Get
            Return _multiLine
        End Get
        Set(ByVal value As Boolean)
            _multiLine = value
            _tb.Multiline = value
            OnResize(EventArgs.Empty)
            Invalidate()
        End Set
    End Property
 
    Private _readOnly As Boolean = False
    Public Shadows Property [ReadOnly]() As Boolean
        Get
            Return _readOnly
        End Get
        Set(ByVal value As Boolean)
            _readOnly = value
            If _tb IsNot Nothing Then
                _tb.ReadOnly = value
            End If
        End Set
    End Property
 
    Protected Overrides Sub OnTextChanged(ByVal e As EventArgs)
        MyBase.OnTextChanged(e)
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnBackColorChanged(ByVal e As EventArgs)
        MyBase.OnBackColorChanged(e)
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnForeColorChanged(ByVal e As EventArgs)
        MyBase.OnForeColorChanged(e)
        _tb.ForeColor = ForeColor
        Invalidate()
    End Sub
 
    Protected Overrides Sub OnFontChanged(ByVal e As EventArgs)
        MyBase.OnFontChanged(e)
        _tb.Font = Font
    End Sub
 
    Protected Overrides Sub OnGotFocus(ByVal e As EventArgs)
        MyBase.OnGotFocus(e)
        _tb.Focus()
    End Sub
 
    Private Sub TextChangeTb() Handles _tb.TextChanged
        Text = _tb.Text
    End Sub
 
    Private Sub TextChng() Handles MyBase.TextChanged
        _tb.Text = Text
    End Sub
 
#End Region
 
    Public Sub NewTextBox()
        With _tb
            .Text = String.Empty
            .BackColor = _BackgroundText
            .ForeColor = ForeColor
            .TextAlign = HorizontalAlignment.Left
            .BorderStyle = BorderStyle.None
            .Location = New Point(3, 3)
            .Font = New Font("Verdana", 10, FontStyle.Regular)
            .Size = New Size(Width - 3, Height - 3)
            .UseSystemPasswordChar = UseSystemPasswordChar
        End With
    End Sub
 
    Sub New()
        MyBase.New()
        NewTextBox()
        Controls.Add(_tb)
        SetStyle(ControlStyles.UserPaint Or ControlStyles.SupportsTransparentBackColor, True)
        DoubleBuffered = True
        TextAlign = HorizontalAlignment.Left
        BackColor = _BaseColor
        ForeColor = Color.White
        Font = New Font("Verdana", 10, FontStyle.Regular)
        Size = New Size(132, 29)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As Windows.Forms.PaintEventArgs)
        Select Case O
            Case _Options.Enabled
                Dim b As Bitmap = New Bitmap(Width, Height)
                Dim g As Graphics = Graphics.FromImage(b)
                Dim rect As Rectangle = New Rectangle(0, 0, Width - 1, Height - 1)
                MyBase.OnPaint(e)
                g.SmoothingMode = SmoothingMode.HighQuality
                g.InterpolationMode = InterpolationMode.HighQualityBicubic
                g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                With _tb
                    .TextAlign = TextAlign
                    .UseSystemPasswordChar = UseSystemPasswordChar
                End With
                g.FillPath(New SolidBrush(_BackgroundText), RoundRect(rect, 3))
                e.Graphics.DrawImage(b, New Point(0, 0))
                ForeColor = Color.White
                g.Dispose() : b.Dispose()
 
            Case _Options.Disabled
 
                Dim b As Bitmap = New Bitmap(Width, Height)
                Dim g As Graphics = Graphics.FromImage(b)
                Dim rect As Rectangle = New Rectangle(0, 0, Width - 1, Height - 1)
                MyBase.OnPaint(e)
                g.SmoothingMode = SmoothingMode.HighQuality
                g.InterpolationMode = InterpolationMode.HighQualityBicubic
                g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                With _tb
                    .TextAlign = TextAlign
                    .UseSystemPasswordChar = UseSystemPasswordChar
                End With
                g.FillPath(New SolidBrush(Color.FromArgb(63, 70, 76)), RoundRect(rect, 3))
                g.DrawPath(New Pen(Color.FromArgb(63, 70, 76)), RoundRect(rect, 3))
                e.Graphics.DrawImage(b, New Point(0, 0))
                ForeColor = Color.FromArgb(63, 70, 76)
                Enabled = False
                g.Dispose() : b.Dispose()
        End Select
 
    End Sub
 
    Protected Overrides Sub OnResize(e As EventArgs)
        MyBase.OnResize(e)
        If Not MultiLine Then
            Dim tbheight As Integer = _tb.Height
            _tb.Location = New Point(10, CType(((Height / 2) - (tbheight / 2) - 0), Integer))
            _tb.Size = New Size(Width - 20, tbheight)
        Else
            _tb.Location = New Point(10, 10)
            _tb.Size = New Size(Width - 20, Height - 20)
        End If
    End Sub
End Class
#Region " Separator "
 
Class Chili_Separator
    Inherits Control
 
    Sub New()
        SetStyle(ControlStyles.ResizeRedraw, True)
        Me.Size = New Point(120, 10)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        e.Graphics.DrawLine(New Pen(Color.FromArgb(58, 64, 70)), 1, 5, Width, 5)
    End Sub
End Class
 
#End Region