<DllImport("msvcrt")> Shared Sub _ srand(ByVal seed As Integer) End Sub
None.
New Random(Seed As Integer)
Please add some!