VB Animation

Public Class frmAnimation
    Dim birdCount As Integer = 1

    Private Sub tmrAnimation_Tick(sender As System.Object, e As System.EventArgs) Handles tmrAnimation.Tick
        Select Case birdCount
            Case 1
                picBird.Image = My.Resources.bird1
                birdCount += 1
            Case 2
                picBird.Image = My.Resources.bird2
                birdCount += 1
            Case 3
                picBird.Image = My.Resources.bird3
                birdCount += 1
            Case 4
                picBird.Image = My.Resources.bird4
                birdCount += 1
            Case 5
                picBird.Image = My.Resources.bird5
                birdCount += 1
            Case 6
                picBird.Image = My.Resources.bird6
                birdCount += 1
            Case 7
                picBird.Image = My.Resources.bird7 'I forgot to create a bird7 for the video, but I made one after I filmed it
                birdCount += 1
            Case 8
                picBird.Image = My.Resources.bird8
                birdCount += 1
            Case 9
                picBird.Image = My.Resources.bird9
                birdCount += 1
            Case 10
                picBird.Image = My.Resources.bird10
                birdCount += 1
            Case 11
                picBird.Image = My.Resources.bird11
                birdCount += 1
            Case 12
                picBird.Image = My.Resources.birdLast
                birdCount = 1
        End Select
    End Sub

    Private Sub frmAnimation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        tmrAnimation.Start()
    End Sub
End Class