Public Class Form1
 
    Private item As Object
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        rnd1()
 
        PictureBox1.Image = ImageList1.Images.Item(item)
 
        Timer1.Enabled = True
 
    End Sub
 
    Sub rnd1()
        Dim r As New System.Random()
        Dim a As Byte
        For a = 1 To 5
            item = (r.Next(1, ImageList1.Images.Count))
        Next
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Timer1.Tick
        rnd1()
 
        PictureBox1.Image = ImageList1.Images.Item(item)
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
 
        Process.Start("http://www.google.de")
 
    End Sub
End Class