Animação quadro-a-quadro

Nesse projeto, eu faço uma animação parecida com a dos desenhos animados, ou seja, uma sequências de figuras animadas por meio de um timer.

Private Sub Timer1_Timer( ) Static Signal as Integer Signal = Signal +1 If signal > 4 Then Signal = 1 Select Case Signal Case Is = 1 Image1.Visible = False Image2.Visible = True Case Is = 2 Image2.Visible = False Image3.Visible = True Case Is = 3 Image3.Visible = False Image4.Visible = True Case Is = 4 Image4.Visible = False Image1.Visible = True End Select End Sub