Private URLs$() = {0 = "http://www.eins.de", 1 = "http://www.zwei.de", 2 = _
  "http://www.drei.de", 3 = "http://www.vier.de", 4 = "http://www.fünf.de"}
 
Private IList As New ImageList
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
IList.Images.Add(big1)
'IList.Images.Add(big2)
'IList.Images.Add(big3)
'IList.Images.Add(big4)
'IList.Images.Add(big5)
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
werbe_pic.Image = IList.Images(werbe_pic.Tag)
 
If werbe_pic.Tag = 4 Then
werbe_pic.Tag = 0
Else
werbe_pic.Tag += 1
End Sub
 
Private Sub werbe_pic_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles werbe_pic.Click
Process.Start(URLs(werbe_pic.Tag))
End Sub