Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

     Dim Sc As Integer = 4

     'Main Rectangle

     e.Graphics.FillRectangle(Brushes.Red, 20 * Sc, 20 * Sc, 100 * Sc, 65 * Sc)

     e.Graphics.DrawRectangle(Pens.Black, 20 * Sc, 20 * Sc, 100 * Sc, 65 * Sc)

'White lines

     e.Graphics.FillRectangle(Brushes.White, 20 * Sc, 30 * Sc, 100 * Sc, 15 * Sc)

     e.Graphics.DrawRectangle(Pens.Black, 20 * Sc, 30 * Sc, 100 * Sc, 15 * Sc)

     e.Graphics.FillRectangle(Brushes.White, 20 * Sc, 60 * Sc, 100 * Sc, 15 * Sc)

     e.Graphics.DrawRectangle(Pens.Black, 20 * Sc, 60 * Sc, 100 * Sc, 15 * Sc)

     'Triangle

     Dim A As New Point(20 * Sc, 20 * Sc)

     Dim B As New Point(70 * Sc, 53 * Sc)

     Dim C As New Point(20 * Sc, 85 * Sc)

     Dim myPoints As Point() = {A, B, C}

     e.Graphics.FillPolygon(Brushes.SkyBlue, myPoints)

     e.Graphics.DrawPolygon(Pens.Black, myPoints)

     'Star

     Dim Stars As Point() = {

         New Point(35 * Sc, 42 * Sc),

         New Point(39 * Sc, 50 * Sc),

         New Point(47 * Sc, 50 * Sc),

         New Point(41 * Sc, 55 * Sc),

         New Point(43 * Sc, 62 * Sc),

         New Point(35 * Sc, 58 * Sc),

         New Point(27 * Sc, 62 * Sc),

         New Point(29 * Sc, 55 * Sc),

         New Point(23 * Sc, 50 * Sc),

         New Point(31 * Sc, 50 * Sc)

         }

     e.Graphics.FillPolygon(Brushes.White, Stars)

     e.Graphics.DrawPolygon(Pens.Black, Stars)

End Sub

End Class

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

        Dim Sc As Integer = 2

        'Main rectangle

        e.Graphics.FillRectangle(Brushes.Red, 20 * Sc, 20 * Sc, 260 * Sc, 180 * Sc)

        e.Graphics.DrawRectangle(Pens.Black, 20 * Sc, 20 * Sc, 260 * Sc, 180 * Sc)

        'triangle black section

        Dim maintriangle As Point() = {

            New Point(20 * Sc, 20 * Sc),

            New Point(150 * Sc, 200 * Sc),

            New Point(280 * Sc, 20 * Sc)

            }

        e.Graphics.FillPolygon(Brushes.Black, maintriangle)

        e.Graphics.DrawPolygon(Pens.Black, maintriangle)

        'triangle blue section

        Dim bluetriangle As Point() = {

            New Point(70 * Sc, 90 * Sc),

            New Point(230 * Sc, 90 * Sc),

            New Point(150 * Sc, 200 * Sc)

            }

        e.Graphics.FillPolygon(Brushes.SkyBlue, bluetriangle)

        e.Graphics.DrawPolygon(Pens.Black, bluetriangle)

        'triangle white section

        Dim whitetriangle As Point() = {

            New Point(92 * Sc, 120 * Sc),

            New Point(208 * Sc, 120 * Sc),

            New Point(150 * Sc, 200 * Sc)

            }

        e.Graphics.FillPolygon(Brushes.White, whitetriangle)

        e.Graphics.DrawPolygon(Pens.Black, whitetriangle)

        'sun section

        Dim sun As Point() = {

            New Point(80 * Sc, 90 * Sc),

            New Point(110 * Sc, 80 * Sc),

            New Point(80 * Sc, 60 * Sc),

            New Point(120 * Sc, 70 * Sc),

            New Point(100 * Sc, 40 * Sc),

            New Point(130 * Sc, 60 * Sc),

            New Point(120 * Sc, 30 * Sc),

            New Point(140 * Sc, 55 * Sc),

            New Point(150 * Sc, 25 * Sc),

            New Point(160 * Sc, 55 * Sc),

            New Point(180 * Sc, 30 * Sc),

            New Point(170 * Sc, 60 * Sc),

            New Point(200 * Sc, 40 * Sc),

            New Point(180 * Sc, 70 * Sc),

            New Point(220 * Sc, 60 * Sc),

            New Point(190 * Sc, 80 * Sc),

            New Point(220 * Sc, 90 * Sc)

            }

        e.Graphics.FillPolygon(Brushes.Yellow, sun)

        e.Graphics.DrawPolygon(Pens.Black, sun)

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

End Class