Imports System
Imports System.Threading

Class Sample
  Shared Sub Main()
    ' シード値を指定せずにインスタンスを連続して生成する
    ' ・.NET Frameworkでは、デフォルトのシード値としてEnvironment.TickCountの値が用いられるため
    ' 　連続して作成したインスタンスが同一のシード値を持つ場合がある
    ' ・.NET Core/.NET 5では、Environment.TickCountではなく呼び出し毎に異なるシード値を用いるため、
    ' 　連続して作成した場合でもインスタンスが同一のシード値を持つことはない
    ' 　(RandomNumberGenerator相当から取得されるシード値を元にグローバルなRandomが作成され、
    ' 　そこから得られる乱数がシード値として用いられる)
    Dim rand1 As New Random()
    Dim rand2 As New Random()

    Thread.Sleep(100) ' 100ミリ秒待機

    ' シード値を指定せずにインスタンスを生成
    Dim rand3 As New Random()

    Const format As String = "{0,-6} {1,-6} {2,-6}"

    Console.WriteLine(
      format,
      NameOf(rand1),
      NameOf(rand2),
      NameOf(rand3)
    )

    ' 各インスタンスから乱数を生成して表示する
    For i As Integer = 1 To 15
      Console.WriteLine(
        format,
        rand1.Next(0, 100),
        rand2.Next(0, 100),
        rand3.Next(0, 100)
      )
    Next
  End Sub
End Class

rand1 rand2 rand3
51    51    55   
78    78    55   
88    88    36   
62    62    2    
18    18    36   
6     6     37   
35    35    91   
25    25    13   
66    66    67   
47    47    28   
42    42    1    
23    23    79   
4     4     53   
4     4     14   
48    48    70   

rand1  rand2  rand3 
94     68     94    
89     88     31    
28     3      74    
97     15     88    
36     73     44    
57     41     52    
12     69     71    
37     79     41    
27     14     16    
89     67     18    
52     98     39    
81     51     38    
0      18     17    
48     90     11    
18     80     61