¿Cómo generar un número entero aleatorio del 1 al 100 en vb?

VB genera números enteros aleatorios entre 1 y 100, que se pueden implementar utilizando el método Rnd() propio del sistema. El código es el siguiente: Private?Sub?Command_Click()

Dim. ? MyValue?//Definir un número aleatorio

MyValue?=?Int((100?*?Rnd)?+?1)?//la función rnd() genera un número aleatorio

Print?MyValue?//Imprimir este número aleatorio

End?Sub

Private?Sub?Form_Load()

Aleatorio?//Inicializar aleatorio Dispositivo de generación de números

End?Sub