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