Dim max As Double = 200
        Dim list As New System.Collections.Generic.List(Of Double)
        Dim Rnd As New System.Random()
 
        For i = 1 To max
            list.Add(Rnd.Next(20) + 0)
        Next i
 
        Dim ar = list.ToArray
        For Each item In ar
            Console.WriteLine(item)
        Next item