Public Class Form1
 
    Private item As Object
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        'MessageBox.Show(ImageList1.Images.Count())
        Random()
 
        SetTitle()
 
        PictureBox1.Image = ImageList1.Images.Item(item)
 
        Timer1.Enabled = True
 
    End Sub
 
    Sub Random()
 
        ' Sicherstellen, daß bei jedem Start wirklich
        ' eine neue Zufallszahlen-Folge generiert wird
        Randomize()
 
        ' Zufallszahlen-Klasse und ArrayList zum 
        ' Zwischenspeichern erstellen
        Dim oZahl As New System.Random
        Dim oList As New SortedList
        Dim Zahl As Integer
        Dim i As Integer
 
        ' Insgesamt 6 Zufallszahlen ermitteln
        For i = 1 To 15
            Do
                ' Zufallszahl im Bereich 1 bis 49
                Zahl = oZahl.Next(1, 15)
 
                ' Prüfen, ob Zufallszahl bereits gezogen
                If Not oList.ContainsValue(Zahl) Then
                    ' Falls nicht, jetzt als "gezogen" merken, 
                    ' indem die Zahl der Liste hinzugefügt wird
                    oList.Add(Zahl, Zahl)
                    Exit Do
                End If
            Loop
        Next i
 
        ' Lottozahlen anzeigen
        Dim sMsg As New System.Text.StringBuilder
        Dim oValues As IList = oList.GetValueList
 
        sMsg.Append("Die Lottozahlen lauten: ")
        For i = 0 To oValues.Count - 1
            sMsg.Append(" " & oValues(i))
        Next
        MsgBox(sMsg.ToString)
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Timer1.Tick
        Random()
 
        SetTitle()
 
        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
 
    Private Sub SetTitle()
 
        Me.Text = "Form1 - " & item
 
    End Sub
End Class