Public Shared Function NumeroAleatorio(Optional ByVal maximo As Integer = Integer.MaxValue, Optional ByVal minimo As Integer = Integer.MinValue) As Integer
        Dim r As New Random(lastintegervalue)
        If minimo > maximo Then
            Dim t As Integer = minimo
            minimo = maximo
            maximo = t
        End If
        lastintegervalue = r.Next(minimo, maximo)
        Return lastintegervalue
    End Function

Retorna un número aleatorio entre un mínimo y un máximo

Número aleatorio

VB.NET