Create Random class, using the specified seed value.
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