list.Add(Rnd.Next(20) + 0)

 Dim max As Double = 200
        Dim list As New System.Collections.Generic.List(Of Double)
        Dim Rnd As New System.Random(CInt(Now.Millisecond))
        For i = 1 To max
            list.Add(Rnd.NextDouble * 100)
        Next i
        For Each item In list
            Console.WriteLine(item.ToString("F4"))
        Next item
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus