Программа для построения паровозика

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics()
        Dim Graph As Graphics = PictureBox1.CreateGraphics
 
        g.FillRectangle(New SolidBrush(Color.Gray), New Rectangle(300, 50, 40, 110))
        g.FillRectangle(New SolidBrush(Color.White), New Rectangle(310, 60, 20, 30))
        g.FillRectangle(New SolidBrush(Color.Gray), New Rectangle(200, 110, 100, 50))
        g.FillRectangle(New SolidBrush(Color.Gray), New Rectangle(300, 125, 50, 10))
        g.FillRectangle(New SolidBrush(Color.Black), New Rectangle(230, 80, 20, 30))
 
        g.FillEllipse(New SolidBrush(Color.Black), New Rectangle(200, 157, 20, 20))
        g.FillEllipse(New SolidBrush(Color.Black), New Rectangle(225, 157, 20, 20))
        g.FillEllipse(New SolidBrush(Color.Black), New Rectangle(250, 157, 20, 20))
        g.FillEllipse(New SolidBrush(Color.Black), New Rectangle(275, 157, 20, 20))
        g.FillEllipse(New SolidBrush(Color.Black), New Rectangle(300, 157, 20, 20))
 
        g.FillEllipse(New SolidBrush(Color.Gray), New Rectangle(230, 60, 20, 20))
        g.FillEllipse(New SolidBrush(Color.White), New Rectangle(235, 55, 20, 20))
        g.FillEllipse(New SolidBrush(Color.Gray), New Rectangle(240, 50, 20, 20))
        g.FillEllipse(New SolidBrush(Color.White), New Rectangle(245, 45, 20, 20))
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
End Class