Chipset Pictureframe

Public Class PictureFrame
    Inherits Control
    Sub New()
        Me.DoubleBuffered = True
    End Sub

    Private Sub Theme_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(19, 17, 17)), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(71, 68, 73)), New Rectangle(1, 1, Me.Width - 3, Me.Height - 3))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(82, 80, 83)), New Rectangle(2, 2, Me.Width - 4, Me.Height - 4))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(82, 80, 83)), New Rectangle(3, 3, Me.Width - 6, Me.Height - 6))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(71, 68, 73)), New Rectangle(4, 4, Me.Width - 8, Me.Height - 8))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(19, 17, 17)), New Rectangle(5, 5, Me.Width - 10, Me.Height - 10))

        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(114, 114, 109)), New Rectangle(6, 6, Me.Width - 12, Me.Height - 12))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(148, 148, 143)), New Rectangle(7, 7, Me.Width - 14, Me.Height - 14))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(148, 148, 143)), New Rectangle(8, 8, Me.Width - 16, Me.Height - 16))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(114, 114, 109)), New Rectangle(9, 9, Me.Width - 18, Me.Height - 18))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(19, 17, 17)), New Rectangle(10, 10, Me.Width - 20, Me.Height - 20))

        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(205, 199, 196)), New Rectangle(11, 11, Me.Width - 22, Me.Height - 22))
        e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(252, 249, 243)), New Rectangle(12, 12, Me.Width - 24, Me.Height - 24))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(232, 222, 210)), New Rectangle(15, 15, Me.Width - 30, Me.Height - 30))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(233, 233, 220), 5), New Rectangle(18, 18, Me.Width - 36, Me.Height - 36))
        e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(31, 29, 44)), New Rectangle(19, 19, Me.Width - 38, Me.Height - 38))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(55, 53, 64), 5), New Rectangle(19, 19, Me.Width - 38, Me.Height - 38))
    End Sub
End Class