Números aleatorios

' Ejemplo, números aleatorios entre 1 y 10
Dim rnd As New Random()
Dim x As Integer = 1
Dim y As Integer = 10
MessageBox.Show(rnd.Next(x, y + 1))