Usa VB para crear pequeños programas

Opción?Explícito

Privado?Sub?Form_Load()

Aleatorio

Etiqueta1.Caption?=?Int((Rnd? *?(999999?-?100000? ?1))? ?100000)'Generar un número aleatorio entre 100000-999999

Temporizador1.Intervalo?=?1000?'Una vez por segundo

Timer1.Enabled?=?True

Fin?Sub

Privado?Sub?Timer1_Timer()

Estático?n?As?Integer

n?=?n? ?1

Si?n?=?60?¿Entonces?' una vez por segundo, y se acumula hasta 60, que son 60 segundos

n ?=?0

Aleatorizar

Label1.Caption?=?Int((Rnd?*?(999999?-?100000? ?1))? ?100000)

End?If

End?Sub

Si tiene alguna pregunta, pregunte. Si está satisfecho, ¡adelante!