Генератор случайных чисел VB.NET
Dim randNum As New Random
MsgBox(randNum.Next(1, 100))
Helpful Hawk
Dim randNum As New Random
MsgBox(randNum.Next(1, 100))Dim r As New Random
Dim inclusiveLowerBound = 1
Dim exclusiveUpperBound = 11 'Not 10, it's exclusive
Dim randomNumber = r.Next(inclusiveLowerBound, exclusiveUpperBound)