[Resolvido] Códigos aleatórios com o Rnd

[Erich VB 0]

Estou fazendo um gerador de códigos aleatórios que deve gerar nada mais e nada menos do que 8 caracteres. Mas toda vez que ele é iniciado ele retorna sempre o mesmo código 75523707.

O que estou fazendo de errado?

Alguém pode me ajudar? Obrigado.

 

Private Sub Command1_Click()

Dim valor As String

 

For i = 0 To 7

valor = Int(Rnd * 10)

Text1.Text = Text1.Text & valor

Next i

End Sub

[scorpio 7]

Coloca a instrução Randomize antes do RND.

 

Private Sub Command1_Click()
Dim valor As String
Randomize
For i = 0 To 7
valor = Int(Rnd * 10)
Text1.Text = Text1.Text & valor
Next i
End Sub

[Erich VB 0]

Obrigado deu certo.

:)