Random number
Imports System Public Class MainClass Shared Sub Main() Dim objRandom As New Random() Dim intRandomNumber As Integer = 0 'Process the loop until intRandomNumber = 10 Do Until intRandomNumber = 10 'Get a random number between 0 and 24 intRandomNumber = objRandom.Next(25) 'Add the number to the list System.Console.WriteLine(intRandomNumber) Loop End Sub End Class