Avast Ui Theme

Imports System.Drawing.Text
Imports System.IO
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Imports System.ComponentModel.Design
Imports System.Drawing.Design
Imports System.Windows.Forms

Public Class AVTheme
    Inherits ContainerControl

    Private C1 As Color = Color.FromArgb(242, 242, 242)
    Private C2 As Color = Color.FromArgb(0, 166, 208)

    Private B1 As New SolidBrush(C1)
    Private B2 As New SolidBrush(C2)

    Private F As Font

    Private T As String


    Private _PageName As String = "Scan"
    Private _PageImage As Image


    Private MouseP As Point = New Point(0, 0)
    Private Cap As Boolean = False
    Private MoveHeight As Integer = 48


    Public Property PageName() As String
        Get
            Return _PageName
        End Get
        Set(v As String)
            _PageName = v : Invalidate()
        End Set
    End Property

    Public Property PageImage() As Image
        Get
            Return _PageImage
        End Get
        Set(v As Image)
            _PageImage = v
        End Set
    End Property

    Sub New()
        MyBase.New()
        Me.BackColor = C1

        DoubleBuffered = True
        Me.Dock = DockStyle.Fill

        F = New Font("Segoe UI", 13, FontStyle.Regular)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(e)
        If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
            Cap = True : MouseP = e.Location
        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 Cap Then
            Parent.Location = MousePosition - MouseP
        End If
    End Sub

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics
        G = e.Graphics

        G.SmoothingMode = SmoothingMode.None

        Dim I As Bitmap = Me.ParentForm.Icon.ToBitmap
        Dim IM As Image = I
        T = Me.ParentForm.Text

        G.FillRectangle(B2, New Rectangle(0, 48, Me.Width, 70))
        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(203, 203, 203))), New Point(0, Me.Height - 49), New Point(Me.Width, Me.Height - 49))

        G.DrawString(T, F, Brushes.Black, Me.Width / 2 - G.MeasureString(T, F).Width / 2, 24 - G.MeasureString(T, F).Height / 2)
        G.DrawImage(IM, New Point(Me.Width / 2 - G.MeasureString(T, F).Width / 2 - IM.Width - 2, IM.Height / 2 - 7))

        If Not Me.ParentForm.FormBorderStyle = FormBorderStyle.None Then
            Me.ParentForm.FormBorderStyle = FormBorderStyle.None
        End If

        G.TextRenderingHint = TextRenderingHint.AntiAlias
        G.DrawString(_PageName, New Font("Verdana", 17, FontStyle.Regular), Brushes.White, 105, 70)

        If Not _PageImage Is Nothing Then
            G.DrawImage(_PageImage, New Point(70, 84 - _PageImage.Height / 2))
        End If
    End Sub
End Class

Public Class AVWindowButton : Inherits Control

    Private Hover As Color = Color.FromArgb(242, 242, 242)

    Private _SetImage As String = "Close"

    Sub New()
        Me.Size = New Size(33, 33)
        Me.DoubleBuffered = True
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.BackColor = Color.Transparent
    End Sub

    <TypeConverter(GetType(btnimProperty)), Category("Misc"), Description("Select Image from the list")>
    Public Property SetImage() As String
        Get
            Return _SetImage
        End Get
        Set(value As String)
            _SetImage = value
        End Set
    End Property

    Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
        Hover = Color.FromArgb(228, 228, 228)
        MyBase.Invalidate()
        MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
        Hover = Color.FromArgb(242, 242, 242)
        MyBase.Invalidate()
        MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        Hover = Color.FromArgb(214, 214, 214)
        MyBase.Invalidate()
        MyBase.OnMouseUp(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        Hover = Color.FromArgb(151, 151, 151)
        MyBase.Invalidate()
        MyBase.OnMouseClick(e)
    End Sub

    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

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics
        G = e.Graphics

        G.SmoothingMode = SmoothingMode.HighQuality

        G.FillPath(New SolidBrush(Color.FromArgb(Hover.ToArgb)), RoundRect(New Rectangle(0, 0, Width - 1, Height - 1), 3))


        G.SmoothingMode = SmoothingMode.None

        If _SetImage = "Close" Then
            Using P1 As New Pen(Brushes.DimGray, 2)
                P1.StartCap = LineCap.Triangle : P1.EndCap = LineCap.Triangle
                G.DrawLine(P1, 6, 6, Me.Width - 6, Me.Height - 6)
                G.DrawLine(P1, Me.Width - 6, 6, 6, Me.Height - 6)
            End Using
        ElseIf _SetImage = "Minimize" Then
            Using P1 As New Pen(Brushes.DimGray, 2)
                P1.StartCap = LineCap.Triangle : P1.EndCap = LineCap.Triangle
                G.DrawLine(P1, 6, Me.Height - 6, Me.Width - 6, Me.Height - 6)
            End Using
        ElseIf _SetImage = "Maximize" Then
            Using P1 As New Pen(Brushes.DimGray, 2)
                P1.StartCap = LineCap.Triangle : P1.EndCap = LineCap.Triangle
                G.FillRectangle(New SolidBrush(Color.FromArgb(Hover.ToArgb)), 6, 8, 16, 13)
                G.DrawRectangle(P1, 6, 8, 16, 13)
                G.FillRectangle(New SolidBrush(Color.FromArgb(Hover.ToArgb)), 12, Me.Height - 19, 16, 13)
                G.DrawRectangle(P1, 12, Me.Height - 19, 16, 13)
            End Using
        ElseIf _SetImage = "Stop" Then
            Dim R1 As New Rectangle(Me.Height / 2 - 6, Me.Width / 2 - 6, 12, 12)
            G.FillRectangle(New SolidBrush(Color.DimGray), R1)
        ElseIf _SetImage = "Play" Then
            G.SmoothingMode = SmoothingMode.AntiAlias
            Dim ptsArray As PointF() = {New PointF(10, 10), New PointF(Me.Width - 10, Me.Height / 2), New PointF(10, Me.Height - 10), New PointF(10, 10)}
            Dim gp As New Drawing2D.GraphicsPath(Drawing2D.FillMode.Alternate)
            gp.AddLines(ptsArray)
            gp.CloseFigure()
            G.FillPath(Brushes.DimGray, gp)
        End If
    End Sub
End Class

Public Class btnimProperty
    Inherits System.ComponentModel.StringConverter

    Public Overrides Function GetStandardValues(context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(myList)
    End Function

    Public Overrides Function GetStandardValuesSupported(context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overrides Function GetStandardValuesExclusive(context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Private Function myList() As Collections.IList
        Dim imgList As New Collection

        With imgList
            .Add("Close")
            .Add("Minimize")
            .Add("Maximize")
            .Add("Stop")
            .Add("Play")
        End With
        Return imgList
    End Function
End Class

Public Class AVTextbox
    Inherits Control

    Dim WithEvents txtbox As New TextBox

    Private _passmask As Boolean = False
    Public Shadows Property UseSystemPasswordChar() As Boolean
        Get
            Return _passmask
        End Get
        Set(ByVal v As Boolean)
            txtbox.UseSystemPasswordChar = UseSystemPasswordChar
            _passmask = v
            Invalidate()
        End Set
    End Property
    Private _maxchars As Integer = 32767
    Public Shadows Property MaxLength() As Integer
        Get
            Return _maxchars
        End Get
        Set(ByVal v As Integer)
            _maxchars = v
            txtbox.MaxLength = MaxLength
            Invalidate()
        End Set
    End Property
    Private _align As HorizontalAlignment
    Public Shadows Property TextAlignment() As HorizontalAlignment
        Get
            Return _align
        End Get
        Set(ByVal v As HorizontalAlignment)
            _align = v
            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
            Invalidate()
        End Set
    End Property


    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        Invalidate()
    End Sub
    Protected Overrides Sub OnBackColorChanged(ByVal e As System.EventArgs)
        MyBase.OnBackColorChanged(e)
        txtbox.BackColor = BackColor
        Invalidate()
    End Sub
    Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
        MyBase.OnForeColorChanged(e)
        txtbox.ForeColor = ForeColor
        Invalidate()
    End Sub
    Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs)
        MyBase.OnFontChanged(e)
        txtbox.Font = Font
    End Sub
    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        MyBase.OnGotFocus(e)
        txtbox.Focus()
    End Sub
    Sub TextChngTxtBox() Handles txtbox.TextChanged
        Text = txtbox.Text
    End Sub
    Sub TextChng() Handles MyBase.TextChanged
        txtbox.Text = Text
    End Sub
    Sub NewTextBox()
        With txtbox
            .Multiline = False
            .BackColor = Color.FromArgb(43, 43, 43)
            .ForeColor = ForeColor
            .Text = String.Empty
            .TextAlign = HorizontalAlignment.Center
            .BorderStyle = BorderStyle.None
            .Location = New Point(7, 5)
            .Font = New Font("Verdana", 10)
            .Size = New Size(Width - 10, 33)
            .UseSystemPasswordChar = UseSystemPasswordChar
        End With

    End Sub

    Sub New()
        MyBase.New()

        NewTextBox()
        Controls.Add(txtbox)

        SetStyle(ControlStyles.UserPaint, True)
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)

        Text = ""
        BackColor = Color.White
        ForeColor = Color.Gray
        Font = New Font("Verdana", 10)
        Size = New Size(135, 33)
        DoubleBuffered = True
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim B As New Bitmap(Width, Height)
        Dim G As Graphics = Graphics.FromImage(B)
        G.SmoothingMode = SmoothingMode.HighQuality
        Height = 33
        With txtbox
            .Width = Width - 10
            .TextAlign = TextAlignment
            .UseSystemPasswordChar = UseSystemPasswordChar
            .Height = 33
        End With

        G.Clear(Color.Transparent)
        G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(216, 216, 216))), New Rectangle(0, 0, Width - 1, Height - 1))

        e.Graphics.DrawImage(B.Clone(), 0, 0)
        G.Dispose() : B.Dispose()
    End Sub
End Class

Class AVTabControl
    Inherits Windows.Forms.TabControl

    Private _DrawBottomBorder As Boolean
    Public Property DrawBottomBorder() As Boolean
        Get
            Return _DrawBottomBorder
        End Get
        Set(ByVal value As Boolean)
            _DrawBottomBorder = value
            Invalidate()
        End Set
    End Property

    Private _BorderColor As Pen = Pens.Black
    Public Property BorderColor() As Color
        Get
            Return _BorderColor.Color
        End Get
        Set(ByVal value As Color)
            _BorderColor = New Pen(value)
            Invalidate()
        End Set
    End Property

    Private _TextAlignment As StringAlignment = StringAlignment.Near
    Public Property TextAlignment() As StringAlignment
        Get
            Return _TextAlignment
        End Get
        Set(ByVal value As StringAlignment)
            _TextAlignment = value
            Invalidate()
        End Set
    End Property

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

        SizeMode = TabSizeMode.Fixed
        Alignment = TabAlignment.Left
        ItemSize = New Size(50, 50)
        Font = New Font("Segoe UI", 9, FontStyle.Regular, GraphicsUnit.Point)
        DrawMode = TabDrawMode.OwnerDrawFixed

        P1 = New Pen(Color.FromArgb(94, 94, 94))
        P2 = New Pen(Color.FromArgb(17, 17, 17))

        B1 = New SolidBrush(Color.FromArgb(38, 38, 38))
        B2 = New SolidBrush(Color.FromArgb(35, 35, 35))
        B3 = New SolidBrush(Color.FromArgb(5, Color.White))

        SF1 = New StringFormat()
        SF1.LineAlignment = StringAlignment.Center

        For Each pg As TabPage In Me.TabPages
            pg.BackColor = Color.FromArgb(242, 242, 242)
        Next
    End Sub

    Protected Overrides Sub OnControlAdded(ByVal e As ControlEventArgs)
        If TypeOf e.Control Is TabPage Then
            For Each i As TabPage In Me.Controls
                i = New TabPage
            Next
            e.Control.BackColor = Color.FromArgb(242, 242, 242)
        End If

        MyBase.OnControlAdded(e)
    End Sub

    Private R1, R2 As Rectangle

    Private P1, P2 As Pen
    Private B1, B2, B3 As SolidBrush

    Private GB1 As LinearGradientBrush
    Private GB2 As LinearGradientBrush

    Private TP1 As TabPage
    Private SF1 As StringFormat

    Private ItemHeight As Integer

    Dim S1 As Size
    Dim REC As New Rectangle
    Dim BR1 As LinearGradientBrush

    Private G As Graphics

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim F1 As New System.Drawing.Font("Segoe UI", 9, FontStyle.Bold, GraphicsUnit.Point)

        G = e.Graphics
        G.TextRenderingHint = TextRenderingHint.ClearTypeGridFit
        G.SmoothingMode = SmoothingMode.AntiAlias

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


        ItemHeight = ItemSize.Height + 2
        G.FillRectangle(B1, 0, 0, ItemHeight, Height)
        G.DrawRectangle(Pens.Black, 0, 0, ItemHeight, Height)
        Dim B5 As New SolidBrush(Color.FromArgb(51, 51, 51))
        Dim P5 As New Pen(B5)
        For I As Integer = 0 To TabCount - 1
            R1 = GetTabRect(I)
            R1.Y -= 1
            R1.Width += 1
            R1.X -= 1
            TP1 = TabPages(I)
            If SelectedIndex = I Then
                Using GB1 As New LinearGradientBrush(R1, Color.FromArgb(26, 26, 26), Color.FromArgb(17, 17, 17), 90.0F)

                    Dim ColorBlend As New ColorBlend()
                    ColorBlend.Colors = {Color.FromArgb(25, 25, 25), Color.FromArgb(17, 17, 17), Color.FromArgb(25, 25, 25)}
                    ColorBlend.Positions = {0.0F, 0.5F, 1.0F}
                    GB1.InterpolationColors = ColorBlend
                    G.FillRectangle(GB1, R1)
                End Using

                G.DrawLine(P5, R1.Left, R1.Y - 1, R1.Width + 1, R1.Y - 1)
                If HoverIndex = I Then
                    G.FillRectangle(B3, R1)
                End If
                R1.X += 5
                R1.Width -= 14

                R2 = R1
                R2.Y += 1
                R2.X += 1

                SF1.Alignment = _TextAlignment
                G.DrawString(TP1.Text, Font, Brushes.White, New Rectangle(R2.Left + 33, R2.Top - 1, R2.Width - 43, R2.Height), SF1)
                Try
                    G.DrawImage(Me.ImageList.Images.Item(TabPages(I).ImageIndex), R1.X + 1, R1.Y + 11, 32, 32)
                Catch
                End Try
            Else
                Dim BR2 As New SolidBrush(Color.FromArgb(38, 38, 38))
                R1.Y -= 1
                G.FillRectangle(BR2, R1)
                G.DrawLine(P5, R1.X, R1.Y, R1.Right, R1.Y)
                If HoverIndex = I Then
                    G.FillRectangle(B3, R1)
                End If
                Dim BR As New SolidBrush(Color.FromArgb(140, Color.Black))
                G.DrawLine(P2, R1.X, R1.Bottom - 1, R1.Right, R1.Bottom - 1)
                R1.X += 5
                R1.Width -= 14
                R2 = R1
                R2.Y += 1
                R2.X += 1
                SF1.Alignment = _TextAlignment
                G.DrawString(TP1.Text, Font, Brushes.Gray, New Rectangle(R2.Left + 33, R2.Top - 1, R2.Width - 43, R2.Height), SF1)
                Try
                    G.DrawImage(Me.ImageList.Images.Item(TabPages(I).ImageIndex), R1.X + 2, R1.Y + 11, 32, 32)
                Catch
                End Try
            End If
            G.DrawLine(P5, R1.Right + 8, R1.Top, R1.Right + 8, R1.Bottom - 3)
        Next

        G.DrawLine(Pens.Black, 0, 0, R2.Height - 9, 0)
        G.DrawLine(_BorderColor, ItemHeight, 0, ItemHeight, Height)
        G.DrawLine(P5, R1.Left - 5, ItemSize.Width * (TabCount), R1.Right + 8, ItemSize.Width * (TabCount))

        If _DrawBottomBorder Then
            G.DrawLine(_BorderColor, 0, Height - 1, Width, Height - 1)
        End If
        G.DrawLine(P5, R1.Left - 5, ((TabCount) * (R1.Width + 12)) + (TabCount * 2), R1.Left - 5, 1)
    End Sub

    Private HoverIndex As Integer = -1

    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
        For I As Integer = 0 To TabPages.Count - 1
            If GetTabRect(I).Contains(e.Location) Then
                HoverIndex = I
                Exit For
            End If
        Next

        Invalidate()
        MyBase.OnMouseMove(e)
    End Sub

    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
        HoverIndex = -1
        Invalidate()
        MyBase.OnMouseLeave(e)
    End Sub
End Class


Public Class AVProgressBar
    Inherits Control

    Private _Value As Integer = 50
    Private _Thickness As Integer = 5
    Private _Angle As Integer = 0
    Private _Symbol As String = "%"

    Sub New()
        Size = New Size(65, 65)
        Invalidate()
    End Sub

    Public Property Angle() As Integer
        Get
            Return _Angle
        End Get
        Set(ByVal v As Integer)
            _Angle = v : Invalidate()
        End Set
    End Property

    Public Property Symbol() As String
        Get
            Return _Symbol
        End Get
        Set(ByVal v As String)
            _Symbol = v : Invalidate()
        End Set
    End Property

    Public Property Thickness() As Integer
        Get
            Return _Thickness
        End Get
        Set(ByVal v As Integer)
            _Thickness = v : Invalidate()
        End Set
    End Property

    Protected Overrides Sub OnPaintBackground(ByVal p As PaintEventArgs)
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Me.Width = Me.Height
        Using B1 As New Bitmap(Width, Height)

            Using G As Graphics = Graphics.FromImage(B1)
                G.SmoothingMode = SmoothingMode.AntiAlias


                G.Clear(BackColor)

                Using LGB As New LinearGradientBrush(ClientRectangle, Color.FromArgb(217, 217, 217), Color.FromArgb(217, 217, 217), LinearGradientMode.Vertical)
                    Using P1 As New Pen(LGB, Thickness + 3)
                        G.DrawArc(P1, CInt(Thickness / 2) + 2, CInt(Thickness / 2) + 2, Width - Thickness - 4, Height - Thickness - 4, -90, 360)
                    End Using
                End Using

                Using LGB As New LinearGradientBrush(ClientRectangle, Color.FromArgb(0, 166, 208), Color.FromArgb(0, 166, 208), LinearGradientMode.Vertical)
                    Using P1 As New Pen(LGB, Thickness + 3)
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, -90, 360)
                    End Using
                End Using

                Using LGB As New LinearGradientBrush(ClientRectangle, Color.FromArgb(255, 255, 255), Color.FromArgb(255, 255, 255), LinearGradientMode.Vertical)
                    Using P1 As New Pen(LGB, Thickness - 2)
                        Dim i As Integer = 360 / 100 * _Value
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, -90, i)
                    End Using
                End Using


                G.DrawString(_Value & _Symbol, New Font("Arial", 13), Brushes.Black, New Point(Me.Width / 2 - G.MeasureString(_Value & _Symbol, New Font("Arial", 13)).Width / 2 + 1, Me.Height / 2 - G.MeasureString(_Value & "%", New Font("Arial", 13)).Height / 2 + 1))
            End Using
            e.Graphics.DrawImage(B1, 0, 0)
        End Using
    End Sub
End Class

Public Class AVLabel : Inherits Control

    Sub New()
        Me.Size = New Size(175, 25)
    End Sub


    Private _String1 As String = "Quick Scan"
    Private _String2 As String = "/ Scan running..."
    Private _Img As Image

    Public Property String1() As String
        Get
            Return _String1
        End Get
        Set(v As String)
            _String1 = v : Invalidate()
        End Set
    End Property

    Public Property String2() As String
        Get
            Return _String2
        End Get
        Set(v As String)
            _String2 = v : Invalidate()
        End Set
    End Property

    Public Property Image As Image
        Get
            Return _Img
        End Get
        Set(v As Image)
            _Img = v : Invalidate()
        End Set
    End Property

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)

        Dim G As Graphics
        G = e.Graphics

        G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias

        G.DrawString(_String1, New Font("Segoe UI", 9, FontStyle.Bold), Brushes.DimGray, 32, 6)
        G.DrawString(_String2, New Font("Segoe UI", 9), Brushes.DimGray, 33 + G.MeasureString(_String1, New Font("Segoe UI", 9, FontStyle.Bold)).Width, 6)
        If Not _Img Is Nothing Then
            G.DrawImage(_Img, 0, 0)
        End If
    End Sub
End Class

Public Class AVComboBox
    Inherits ComboBox

    Private _StartIndex As Integer = 0
    Private C1 As Color = Color.FromArgb(254, 254, 254)
    Private C2 As Color = Color.FromArgb(244, 244, 244)

    Public Property StartIndex As Integer
        Get
            Return _StartIndex
        End Get
        Set(ByVal value As Integer)
            _StartIndex = value
            Try
                MyBase.SelectedIndex = value
            Catch
            End Try
            Invalidate()
        End Set
    End Property

    Sub ReplaceItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
        e.DrawBackground()
        Try
            If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
                e.Graphics.FillRectangle(New SolidBrush(Color.LightGray), e.Bounds)
                Using b As New SolidBrush(e.ForeColor)
                    e.Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), New Font("Verdana", 10), b, 1, e.Bounds.Top + 5)
                End Using
            Else
                e.Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), New Font("Verdana", 10), Brushes.Gray, 1, e.Bounds.Top + 5)
            End If
        Catch
        End Try
        e.DrawFocusRectangle()
        Me.Invalidate()
    End Sub

    Protected Sub DrawTriangle(ByVal Clr As Color, ByVal FirstPoint As Point, ByVal SecondPoint As Point, ByVal ThirdPoint As Point, ByVal G As Graphics)
        Dim points As New List(Of Point)()
        points.Add(FirstPoint)
        points.Add(SecondPoint)
        points.Add(ThirdPoint)
        G.FillPolygon(New SolidBrush(Clr), points.ToArray)
    End Sub

    Sub New()
        Me.Width = 163
        Me.Font = New Font("Verdana", 15)
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or _
        ControlStyles.ResizeRedraw Or _
        ControlStyles.UserPaint Or _
        ControlStyles.DoubleBuffer, True)
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        Me.BackColor = C1
        Me.ForeColor = C1
        Me.DropDownStyle = ComboBoxStyle.DropDownList
        Me.DoubleBuffered = True
    End Sub

    Protected Overrides Sub OnTextChanged(e As System.EventArgs)
        MyBase.OnTextChanged(e)
        Invalidate()
    End Sub

    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        C2 = Color.FromArgb(233, 233, 233)
        MyBase.Invalidate()
        MyBase.OnMouseClick(e)
    End Sub

    Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs)
        C2 = Color.FromArgb(244, 244, 244)
        MyBase.Invalidate()
        MyBase.OnMouseUp(e)
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics
        G = e.Graphics

        G.FillRectangle(New SolidBrush(Color.FromArgb(C2.ToArgb)), New Rectangle(Width - 20, 2, 17, Height - 5))
        G.SmoothingMode = SmoothingMode.HighQuality
        Try
            G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(216, 216, 216))), New Rectangle(Width - 20, 2, 17, Height - 5))

            Try
                G.DrawString(Text, New Font("Verdana", 10), Brushes.Gray, New Rectangle(3, 0, Width - 20, Height), New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
            Catch : End Try

            G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(216, 216, 216))), 0, 0, 0, 0)
            G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(216, 216, 216))), New Rectangle(0, 0, Width - 1, Height - 1))

            DrawTriangle(Color.FromArgb(216, 216, 216), New Point(Width - 15, 14), New Point(Width - 8, 14), New Point(Width - 12, 17), G)
        Catch
        End Try
    End Sub
End Class

Public Class AVButton
    Inherits Control

    Private Hover As Color
    Private _MainColor As String
    Private Loaded As Boolean

    Sub New()
        Me.Size = New Size(33, 33)
        Me.DoubleBuffered = True
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.BackColor = Color.Transparent
    End Sub

    <TypeConverter(GetType(btnColorProperty)), Category("Misc"), Description("Select color from the list")>
    Public Property MainColor() As String
        Get
            Return _MainColor
        End Get
        Set(value As String)
            _MainColor = value
        End Set
    End Property

    Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)

        Hover = Color.FromArgb(228, 228, 228)

        If _MainColor = "Light" Then
            Hover = Color.FromArgb(228, 228, 228)
        Else
            Hover = Color.FromArgb(117, 117, 117)
        End If

        MyBase.Invalidate()
        MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)

        Hover = Color.FromArgb(242, 242, 242)

        If _MainColor = "Light" Then
            Hover = Color.FromArgb(242, 242, 242)
        Else
            Hover = Color.DimGray
        End If

        MyBase.Invalidate()
        MyBase.OnMouseEnter(e)
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
        If _MainColor = "Light" Then
            Hover = Color.FromArgb(228, 228, 228)
        Else
            Hover = Color.FromArgb(117, 117, 117)
        End If
        MyBase.Invalidate()
        MyBase.OnMouseUp(e)
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        If _MainColor = "Light" Then
            Hover = Color.FromArgb(151, 151, 151)
        Else
            Hover = Color.FromArgb(66, 66, 66)
        End If
        MyBase.Invalidate()
        MyBase.OnMouseClick(e)
    End Sub


    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

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim G As Graphics
        G = e.Graphics

        If Loaded = False Then
            If MainColor = "Light" Then
                Hover = Color.FromArgb(242, 242, 242)
            Else
                Hover = Color.DimGray
            End If
            Loaded = True
        End If

        G.SmoothingMode = SmoothingMode.HighQuality

        If MainColor = "Light" Then
            G.FillPath(New SolidBrush(Color.FromArgb(Hover.ToArgb)), RoundRect(New Rectangle(0, 0, Width - 1, Height - 1), 5))
        Else
            G.FillPath(New SolidBrush(Color.FromArgb(Hover.ToArgb)), RoundRect(New Rectangle(0, 0, Width - 1, Height - 1), 5))
        End If

        G.DrawString(Text, New Font("Verdana", 10), Brushes.Black, Me.Width / 2 - G.MeasureString(Text, New Font("Verdana", 10)).Width / 2, Me.Height / 2 - G.MeasureString(Text, New Font("Verdana", 10)).Height / 2)

        G.SmoothingMode = SmoothingMode.None
    End Sub
End Class

Public Class btnColorProperty
    Inherits System.ComponentModel.StringConverter

    Public Overrides Function GetStandardValues(context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(myList)
    End Function

    Public Overrides Function GetStandardValuesSupported(context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overrides Function GetStandardValuesExclusive(context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Private Function myList() As Collections.IList
        Dim imgList As New Collection

        With imgList
            .Add("Light")
            .Add("Dark")
        End With
        Return imgList
    End Function
End Class