Imports System
Imports System.Globalization
Public Class MainClass
Public Shared Sub Main()
Dim randomInstancesToCreate As Integer = 4
Dim randomEngines(randomInstancesToCreate - 1) As Random
For ctr As Integer = 0 To randomInstancesToCreate - 1
randomEngines(ctr) = New Random(CInt((DateTime.Now.Ticks >> 32) >> ctr))
Next
End Sub 'Main
End Class