Como obtener un numero al azar de 4 digitos

[hunter18]

Como hago para que al presionar un Command1 me salga un numero diferente al azar y que siempre tenga cuatro digitos

[erbuson]

Hola:

Esta función está copiada de Recursos Visual Basic, si no te es suficiente, en ella puedes encontrar mas información en el enlace de donde la copié:

'Función que devuelve el número aleatorio
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize ' inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function

Generar Numero Aleatorio

Saludos