[VB.NET] Project Dancing [Animation] [SRC]

Design

Code:
Inherits System.Windows.Forms.Form

Code:
#Region " Windows Form Designer generated code "

    Public Sub New()

        MyBase.New()

        'This call is required by the Windows Form Designer.

        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer.  

    'Do not modify it using the code editor.

    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox

    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox

    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox

    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox

    Friend WithEvents btnStart As System.Windows.Forms.Button

    Friend WithEvents btnStop As System.Windows.Forms.Button

    Friend WithEvents Timer1 As System.Windows.Forms.Timer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.components = New System.ComponentModel.Container()

        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))

        Me.PictureBox1 = New System.Windows.Forms.PictureBox()

        Me.PictureBox2 = New System.Windows.Forms.PictureBox()

        Me.PictureBox3 = New System.Windows.Forms.PictureBox()

        Me.PictureBox4 = New System.Windows.Forms.PictureBox()

        Me.PictureBox5 = New System.Windows.Forms.PictureBox()

        Me.btnStart = New System.Windows.Forms.Button()

        Me.btnStop = New System.Windows.Forms.Button()

        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)

        Me.SuspendLayout()

        '

        'PictureBox1

        '

        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)

        Me.PictureBox1.Location = New System.Drawing.Point(24, 16)

        Me.PictureBox1.Name = "PictureBox1"

        Me.PictureBox1.Size = New System.Drawing.Size(100, 88)

        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox1.TabIndex = 0

        Me.PictureBox1.TabStop = False

        '

        'PictureBox2

        '

        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Bitmap)

        Me.PictureBox2.Location = New System.Drawing.Point(136, 16)

        Me.PictureBox2.Name = "PictureBox2"

        Me.PictureBox2.Size = New System.Drawing.Size(100, 88)

        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox2.TabIndex = 1

        Me.PictureBox2.TabStop = False

        '

        'PictureBox3

        '

        Me.PictureBox3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Bitmap)

        Me.PictureBox3.Location = New System.Drawing.Point(248, 16)

        Me.PictureBox3.Name = "PictureBox3"

        Me.PictureBox3.Size = New System.Drawing.Size(100, 88)

        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox3.TabIndex = 2

        Me.PictureBox3.TabStop = False

        '

        'PictureBox4

        '

        Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Bitmap)

        Me.PictureBox4.Location = New System.Drawing.Point(24, 120)

        Me.PictureBox4.Name = "PictureBox4"

        Me.PictureBox4.Size = New System.Drawing.Size(100, 88)

        Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox4.TabIndex = 3

        Me.PictureBox4.TabStop = False

        '

        'PictureBox5

        '

        Me.PictureBox5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

        Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Bitmap)

        Me.PictureBox5.Location = New System.Drawing.Point(136, 120)

        Me.PictureBox5.Name = "PictureBox5"

        Me.PictureBox5.Size = New System.Drawing.Size(100, 88)

        Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox5.TabIndex = 4

        Me.PictureBox5.TabStop = False

        '

        'btnStart

        '

        Me.btnStart.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.btnStart.Location = New System.Drawing.Point(48, 224)

        Me.btnStart.Name = "btnStart"

        Me.btnStart.Size = New System.Drawing.Size(112, 23)

        Me.btnStart.TabIndex = 5

        Me.btnStart.Text = "Start Dance"

        '

        'btnStop

        '

        Me.btnStop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.btnStop.Location = New System.Drawing.Point(168, 224)

        Me.btnStop.Name = "btnStop"

        Me.btnStop.Size = New System.Drawing.Size(112, 23)

        Me.btnStop.TabIndex = 6

        Me.btnStop.Text = "Stop Dance"

        '

        'Timer1

        '

        Me.Timer1.Interval = 500

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

        Me.ClientSize = New System.Drawing.Size(360, 253)

        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnStop, Me.btnStart, Me.PictureBox5, Me.PictureBox4, Me.PictureBox3, Me.PictureBox2, Me.PictureBox1})

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

    End Sub

#End Region

Project Source

Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.Location = New Point(60, 20)

        PictureBox1.Size = New Size(125, 150)

        PictureBox2.Location = New Point(60, 20)

        PictureBox2.Size = New Size(125, 150)

        PictureBox3.Location = New Point(60, 20)

        PictureBox3.Size = New Size(125, 150)

        PictureBox4.Location = New Point(60, 20)

        PictureBox4.Size = New Size(125, 150)

        PictureBox5.Location = New Point(60, 20)

        PictureBox5.Size = New Size(125, 150)

        'MakePictureBox one Visible

        PictureBox1.Visible = True

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        ' Disable the Timer Control

        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If PictureBox1.Visible = True Then

            PictureBox1.Visible = False

            PictureBox2.Visible = True

        ElseIf PictureBox2.Visible = True Then

            PictureBox2.Visible = False

            PictureBox3.Visible = True

        ElseIf PictureBox3.Visible = True Then

            PictureBox3.Visible = False

            PictureBox4.Visible = True

        ElseIf PictureBox4.Visible = True Then

            PictureBox4.Visible = False

            PictureBox5.Visible = True

        ElseIf PictureBox5.Visible = True Then

            PictureBox5.Visible = False

            PictureBox1.Visible = True

        End If

    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Timer1.Enabled = True

    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click

        Timer1.Enabled = False

    End Sub