Public Class uc_main
 
 
    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 uc_main_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
IList.Images.Add(werb1)
IList.Images.Add(werb2)
IList.Images.Add(werb3)
IList.Images.Add(werb4)
IList.Images.Add(werb5)

    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

Private Sub werbetimer_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles werbetimer.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 If
 
 
    End Sub