Option Strict On
Public Module RandomizeStatement
Public Sub Main()
Dim number As Double = 1.0325
Rnd(-1)
Randomize(number) ' Number is any Double
For ctr As Integer = 1 to 10
Console.WriteLine(Rnd())
Next
End Sub
End Module
0.3610106
0.579608
0.2782471
0.05653632
0.2865489
0.33937
0.6398301
0.2991799
0.8264404
0.1662288