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

     'Logo inter'

     'Green fill Color'

     e.Graphics.FillRectangle(Brushes.Green, 30, 60, 70, 70)

     'Yellow fill Color'

        e.Graphics.FillRectangle(Brushes.Yellow, 50, 60, 30, 50)

     'Green border'

     e.Graphics.DrawRectangle(Pens.Black, 30, 60, 70, 70)

     'Yellow border'

     e.Graphics.DrawRectangle(Pens.Black, 50, 60, 30, 50)

     'Green fill elipse color

     e.Graphics.FillEllipse(Brushes.Green, 50, 30, 30, 30)

     'Black border for circle

     e.Graphics.DrawEllipse(Pens.Black, 50, 30, 30, 30)

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

     'Netflix logo

     'Dark Red color of rectangles

        e.Graphics.FillRectangle(Brushes.DarkRed, 20, 20, 20, 80)

        e.Graphics.FillRectangle(Brushes.DarkRed, 60, 20, 20, 80)

     'Black outline of rectangles

     e.Graphics.DrawRectangle(Pens.Black, 20, 20, 20, 80)

     e.Graphics.DrawRectangle(Pens.Black, 60, 20, 20, 80)

     'Red color of rectangles as an array

     Dim A As New Point(20, 21)

     Dim B As New Point(40, 21)

     Dim C As New Point(80, 100)

     Dim D As New Point(60, 100)

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

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

     'Black outline of line

     e.Graphics.DrawLine(Pens.Black, 20, 20, 60, 100)

     e.Graphics.DrawLine(Pens.Black, 40, 20, 80, 100)

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

     'BMW Logo

     'First Gray Circle

     e.Graphics.FillEllipse(Brushes.Gray, 20, 20, 160, 160)

     e.Graphics.DrawEllipse(Pens.Black, 20, 20, 160, 160)

     'Black Circle

     e.Graphics.FillEllipse(Brushes.Black, 25, 25, 150, 150)

     e.Graphics.DrawEllipse(Pens.Black, 25, 25, 150, 150)

     'Gray Circle

     e.Graphics.FillEllipse(Brushes.Gray, 45, 45, 110, 110)

     e.Graphics.DrawEllipse(Pens.Black, 45, 45, 110, 110)

     'White Circle

     e.Graphics.FillEllipse(Brushes.White, 50, 50, 100, 100)

     e.Graphics.DrawEllipse(Pens.Black, 50, 50, 100, 100)

     'Right Pie

     e.Graphics.FillPie(Brushes.LightBlue, 55, 55, 95, 95, 0, 90)

     e.Graphics.DrawPie(Pens.Black, 55, 55, 95, 95, 0, 90)

     'Left Pie

     e.Graphics.FillPie(Brushes.LightBlue, 50, 50, 105, 105, 180, 90)

     e.Graphics.DrawPie(Pens.Black, 50, 50, 105, 105, 180, 90)

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

        'anthenas

        Dim anthena1 As Point() = {

            New Point(200 * sc, 45 * sc),

            New Point(215 * sc, 22 * sc),

            New Point(220 * sc, 18 * sc),

            New Point(222 * sc, 20 * sc),

            New Point(220 * sc, 25 * sc),

            New Point(205 * sc, 50 * sc)

            }

        e.Graphics.FillPolygon(Brushes.SpringGreen, anthena1)

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

        Dim anthena2 As Point() = {

            New Point(120 * sc, 45 * sc),

            New Point(105 * sc, 22 * sc),

            New Point(100 * sc, 18 * sc),

            New Point(98 * sc, 20 * sc),

            New Point(100 * sc, 25 * sc),

            New Point(115 * sc, 50 * sc)

            }

        e.Graphics.FillPolygon(Brushes.SpringGreen, anthena2)

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

        'head

        e.Graphics.FillPie(Brushes.SpringGreen, 100 * sc, 30 * sc, 120 * sc, 100 * sc, 180, 180)

        e.Graphics.DrawPie(Pens.Black, 100 * sc, 30 * sc, 120 * sc, 100 * sc, 180, 180)

        'eyes

        e.Graphics.FillEllipse(Brushes.White, 120 * sc, 50 * sc, 20 * sc, 20 * sc)

        e.Graphics.DrawEllipse(Pens.Black, 120 * sc, 50 * sc, 20 * sc, 20 * sc)

        e.Graphics.FillEllipse(Brushes.White, 180 * sc, 50 * sc, 20 * sc, 20 * sc)

        e.Graphics.DrawEllipse(Pens.Black, 180 * sc, 50 * sc, 20 * sc, 20 * sc)

        'left arm 

        'Rectangle

        e.Graphics.FillRectangle(Brushes.SpringGreen, 60 * sc, 100 * sc, 30 * sc, 60 * sc)

        e.Graphics.DrawRectangle(Pens.Black, 60 * sc, 100 * sc, 30 * sc, 60 * sc)

        'Pie 1

        e.Graphics.FillPie(Brushes.SpringGreen, 60 * sc, 86 * sc, 30 * sc, 31 * sc, 180, 180)

        e.Graphics.DrawArc(Pens.Black, 60 * sc, 86 * sc, 30 * sc, 31 * sc, 180, 180)

        'Pie 2

        e.Graphics.FillPie(Brushes.SpringGreen, 60 * sc, 142 * sc, 30 * sc, 32 * sc, 0, 180)

        e.Graphics.DrawArc(Pens.Black, 60 * sc, 142 * sc, 30 * sc, 32 * sc, 0, 180)

        'Rigth arm

        'Rectangle

        e.Graphics.FillRectangle(Brushes.SpringGreen, 230 * sc, 100 * sc, 30 * sc, 60 * sc)

        e.Graphics.DrawRectangle(Pens.Black, 230 * sc, 100 * sc, 30 * sc, 60 * sc)

        'Pie 1

        e.Graphics.FillPie(Brushes.SpringGreen, 230 * sc, 86 * sc, 30 * sc, 31 * sc, 180, 180)

        e.Graphics.DrawArc(Pens.Black, 230 * sc, 86 * sc, 30 * sc, 31 * sc, 180, 180)

        'Pie 2

        e.Graphics.FillPie(Brushes.SpringGreen, 230 * sc, 142 * sc, 30 * sc, 32 * sc, 0, 180)

        e.Graphics.DrawArc(Pens.Black, 230 * sc, 142 * sc, 30 * sc, 32 * sc, 0, 180)

        'left leg 

        e.Graphics.FillRectangle(Brushes.SpringGreen, 120 * sc, 190 * sc, 30 * sc, 40 * sc)

        e.Graphics.DrawRectangle(Pens.Black, 120 * sc, 190 * sc, 30 * sc, 40 * sc)

        e.Graphics.FillPie(Brushes.SpringGreen, 120 * sc, 210 * sc, 30 * sc, 40 * sc, 0, 180)

        e.Graphics.DrawArc(Pens.Black, 120 * sc, 210 * sc, 30 * sc, 40 * sc, 0, 180)

        'right leg 

        e.Graphics.FillRectangle(Brushes.SpringGreen, 170 * sc, 190 * sc, 30 * sc, 40 * sc)

        e.Graphics.DrawRectangle(Pens.Black, 170 * sc, 190 * sc, 30 * sc, 40 * sc)

        e.Graphics.FillPie(Brushes.SpringGreen, 170 * sc, 210 * sc, 30 * sc, 40 * sc, 0, 180)

        e.Graphics.DrawArc(Pens.Black, 170 * sc, 210 * sc, 30 * sc, 40 * sc, 0, 180)

        'body

        Dim body As Point() = {

            New Point(100 * sc, 90 * sc),

            New Point(100 * sc, 180 * sc),

            New Point(100 * sc, 185 * sc),

            New Point(102 * sc, 188 * sc),

            New Point(105 * sc, 190 * sc),

            New Point(215 * sc, 190 * sc),

            New Point(218 * sc, 188 * sc),

            New Point(220 * sc, 185 * sc),

            New Point(220 * sc, 180 * sc),

            New Point(220 * sc, 90 * sc)

            }

        e.Graphics.FillPolygon(Brushes.SpringGreen, body)

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

    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

        'Black ellipse (background)

        e.Graphics.FillEllipse(Brushes.Black, 22, 20, 97, 97)

        'White upper pie

        e.Graphics.FillPie(Brushes.White, 30, 35, 80, 75, 0, 180)

        'Red lower pie

        e.Graphics.FillPie(Brushes.Red, 30, 25, 80, 75, 180, 180)

        'Black small circle 

        e.Graphics.FillEllipse(Brushes.Black, 55, 55, 30, 30)

        'White smaller circle

        e.Graphics.FillEllipse(Brushes.White, 60, 60, 20, 20)

    End Sub

End Class