Imports System Imports Microsoft.VisualBasic Module RandomNextDemo Sub NoBoundsRandoms( seed As Integer ) Console.WriteLine( seed ) Dim randObj As New Random( seed ) Dim j As Integer For j = 0 To 5 Console.Write( "{0,11} ", randObj.Next( ) ) Next j End Sub Sub Main( ) NoBoundsRandoms( 234 ) End Sub End Module