' John Doe
' Drawing
' Period 1

Public Class Form1

    ' creates picture of Pinocchio
    Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Me.BackColor = Color.FromArgb(0, 150, 200)                          ' blue sky (0 red, 150 green, 200 blue)

        e.Graphics.DrawLine(Pens.Black, 150, 90, 150, 170)                  ' body
        e.Graphics.DrawLine(New Pen(Color.Black, 2), 110, 120, 190, 120)    ' arms
        e.Graphics.DrawLine(Pens.Black, 150, 170, 110, 210)                 ' left leg
        e.Graphics.DrawLine(Pens.Black, 150, 170, 190, 210)                 ' right leg
        e.Graphics.DrawEllipse(Pens.Black, 120, 30, 60, 60)                 ' head
        e.Graphics.FillEllipse(Brushes.Blue, 135, 45, 10, 10)               ' left eye
        e.Graphics.FillEllipse(Brushes.Blue, 155, 45, 10, 10)               ' right eye

        ' mouth
        e.Graphics.DrawCurve(Pens.Red, {New Point(140, 77), New Point(145, 80), New Point(150, 81), New Point(155, 80), New Point(160, 77)})

        ' nose
        e.Graphics.FillPolygon(Brushes.Black, {New Point(150, 62), New Point(150, 68), New Point(170, 68)})

        ' ground
        e.Graphics.FillRectangle(Brushes.Green, 20, 210, 260, 40)

        ' cloud
        e.Graphics.FillClosedCurve(Brushes.White, {New Point(200, 50), New Point(210, 58), New Point(220, 60), New Point(230, 60), New Point(240, 58), New Point(250, 50), New Point(245, 33), New Point(230, 30), New Point(220, 32), New Point(210, 38)})

        ' author's name
        e.Graphics.DrawString("John D", New Font("Arial", 12), Brushes.Black, 30, 270)
    End Sub

End Class