Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement