Dim ar As New ArrayList
        Dim l As Int32
        Randomize()
        Do Until ar.Count = Convert.ToInt32(Me.TextBox1.Text) ' 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