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