Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ar As New ArrayList
        Dim l As Int32
        Randomize()
        Do Until ar.Count = 6 ' ANZAHL D. DURCHLÄUFE
            l = 99 * Rnd() + 1 ' ZAHLEN ZWISCHEN 100 und 1
            If Not ar.Contains(l) Then ar.Add(l)
        Loop
        Me.ListBox1.Items.Clear() ' AUSGEBEN
        For Each o As Object In ar
            Me.ListBox1.Items.Add(o.ToString)
        Next
    End Sub