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
Timer1.Interval?=?1000?'Una vez por segundo
p>Timer1.Enabled?=?True
Fin?Sub
Privado?Sub?Timer1_Timer()
¿Estático?n?As? Entero
n?=?n?+?1
Si?n?=?60?¿Entonces?' una vez por segundo, y el total es 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, aprovéchela. . ¡Vamos!