Генератор случайных чисел VB.NET
Dim randNum As New Random
MsgBox(randNum.Next(1, 100))
Helpful Hawk
Dim randNum As New Random
MsgBox(randNum.Next(1, 100))