Public Class Form1
    Dim a1 As New Collection
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim RESIM1 As New Bitmap(300, 400)
        Dim CIZ As Graphics = Graphics.FromImage(RESIM1)
        CIZ.DrawLine(New Pen(Color.Black, 2), 17, 312, 59, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 193, 184, 191, 166)
        CIZ.DrawLine(New Pen(Color.Black, 2), 193, 184, 213, 182)
        CIZ.DrawLine(New Pen(Color.Black, 2), 179, 204, 193, 184)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 204, 179, 204)
        CIZ.DrawLine(New Pen(Color.Black, 2), 59, 184, 60, 166)
        CIZ.DrawLine(New Pen(Color.Black, 2), 59, 184, 39, 182)
        CIZ.DrawLine(New Pen(Color.Black, 2), 73, 204, 59, 184)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 204, 73, 204)
        CIZ.DrawArc(New Pen(Color.Black, 2), 119, 115, 24, 24, 256, 104)
        CIZ.DrawArc(New Pen(Color.Black, 2), 99, 115, 29, 29, 190, 102)
        CIZ.DrawArc(New Pen(Color.Black, 2), 92, 81, 71, 71, 37, 102)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 127, 93, 34, 34)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 86, 93, 34, 34)
        CIZ.DrawLine(New Pen(Color.Black, 2), 199, 312, 241, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 241, 59, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 241, 199, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 168, 126, 241)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 72, 65, 104, 104)
        a1.Add(RESIM1)

        Dim RESIM2 As New Bitmap(300, 400)
        CIZ = Graphics.FromImage(RESIM2)
        CIZ.DrawLine(New Pen(Color.Black, 2), 59, 312, 102, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 156, 312, 199, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 241, 59, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 241, 199, 312)
        CIZ.DrawLine(New Pen(Color.Black, 2), 193, 225, 191, 243)
        CIZ.DrawLine(New Pen(Color.Black, 2), 193, 225, 213, 227)
        CIZ.DrawLine(New Pen(Color.Black, 2), 179, 204, 193, 225)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 204, 179, 204)
        CIZ.DrawLine(New Pen(Color.Black, 2), 59, 225, 60, 243)
        CIZ.DrawLine(New Pen(Color.Black, 2), 59, 225, 39, 227)
        CIZ.DrawLine(New Pen(Color.Black, 2), 73, 204, 59, 225)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 204, 73, 204)
        CIZ.DrawArc(New Pen(Color.Black, 2), 117, 85, 23, 23, 147, 9)
        CIZ.DrawArc(New Pen(Color.Black, 2), 117, 85, 23, 23, 348, 105)
        CIZ.DrawArc(New Pen(Color.Black, 2), 72, 84, 27, 27, 341, 107)
        CIZ.DrawArc(New Pen(Color.Black, 2), 102, 137, 62, 62, 207, 99)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 127, 93, 34, 34)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 86, 93, 34, 34)
        CIZ.DrawLine(New Pen(Color.Black, 2), 126, 168, 126, 241)
        CIZ.DrawEllipse(New Pen(Color.Black, 2), 72, 65, 104, 104)
        a1.Add(RESIM2)
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Static R = 1
        Static YON = 50
        R = R Mod 2 + 1
        PictureBox1.Image = a1(R)
        Me.Left += YON
        If Me.Left > 250 Then YON *= -1
        If Me.Left < 50 Then YON *= -1
    End Sub

End Class