FRANCIS
07 de Febrero del 2004

hola e echo un programa para que cuando le de al comand1 me genere un codigo aleatorio.
pero me e dado cuenta que cuando me lo crea si sale aleatorio.
pero cuando lo cierro y lo abro de nuevo me crea los mismos numeros.
EL CODIGO ES ESTE:
Private Sub Command1_Click()
Text1.Text = Int(Rnd(Time) * 1000000)
End Sub
ME PODEIS DECIR EN QUE FALLO Y COMO HACERLO.
GRACIAS .

en?
07 de Febrero del 2004

antes de usar la función 'Rnd' debes inicializar el generador de números aleatorios

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd(Time) * 1000000)
End Sub