Imports System.Threading Module RandomObjectDemo Sub Main( ) Dim r As New Random( 1 ) Console.WriteLine(r.NextDouble()) End Sub End Module