'/// Theme by GammaRay 
    '/// You may use this in any program but you must leave credits
    '/// Don't forget to leave feedback on the thread
     
    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