Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        Image2.Image = Project1.My.Resources.Resources.Pfeil
        Timer1.Stop()
        Timer2.Start()
    End Sub
 
 
 
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
 
        Image2.Image = Project1.My.Resources.Resources.Pfeil1
        Timer2.Stop()
        Timer3.Start()
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer3.Tick
 
        Image2.Image = Project1.My.Resources.Resources.Pfeil2
        Timer3.Stop()
        Timer4.Start()
    End Sub
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer4.Tick
 
        Image2.Image = Project1.My.Resources.Resources.Pfeil3
        Timer4.Stop()
        Timer1.Start()
    End Sub

Gruss Caddy