Development VB.Net

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