Private bild As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 Select Case bild
   Case 0
       Image2.Image = Project1.My.Resources.Resources.Pfeil
   Case 1
       Image2.Image = Project1.My.Resources.Resources.Pfeil1
   Case 2
       Image2.Image = Project1.My.Resources.Resources.Pfeil2
   Case 3
       Image2.Image = Project1.My.Resources.Resources.Pfeil3
       bild = -1
 End Select
 bild +=1
End Sub