Random.NextDouble returns a random number between 0.0 and 1.0.
Imports System.Threading Module RandomObjectDemo Sub Main( ) Dim r As New Random( 1 ) Console.WriteLine(r.NextDouble()) End Sub End Module