1: 2: 3: 4: 5: 6: 7:
Dim RandomClass As New Random() For i = 0 To 10 Dim r1 As Integer r1 = RandomClass.Next(1, 90) System.Diagnostics.Debug.Print(r1) Next