Public Class Form1


    Dim heroCount As Integer = 1

    Private Sub pbHero_Click(sender As Object, e As EventArgs) Handles pbHero.Click
        heroCount = 1
        timerHero.Start()

    End Sub

    Private Sub timerHero_Tick(sender As Object, e As EventArgs) Handles timerHero.Tick
        Select Case heroCount
            Case 1
                pbHero.Image = My.Resources.adventurer_attack2_01
                heroCount += 1
            Case 2
                pbHero.Image = My.Resources.adventurer_attack2_02
                heroCount += 1
            Case 3
                pbHero.Image = My.Resources.adventurer_attack2_03
                lblDamage.Show()
                heroCount += 1
            Case 4
                pbHero.Image = My.Resources.adventurer_attack2_04
                heroCount += 1
            Case 5
                pbHero.Image = My.Resources.adventurer_attack2_05
                heroCount += 1
                lblDamage.Hide()

            Case 6
                pbHero.Image = My.Resources.adventurer_attack2_00
        End Select

    End Sub

End Class