Duda al Generar Numeros con la funcion rnd

[NsTeam]

hola a todos

tengo una duda con la funcion rnd...
lo que pasa es que siempre genera los mismos numeros al iniciar el programa

(146. 231, 208, 351, 345, 112, 487, 118, etc...)

el codigo que tengo es este

Código: [Seleccionar]

a = 0
b = 494

Text1.Text = Int((a - b + 1) * Rnd + b)
siempre al iniciar el programa me genera primero (146. 231, 208, 351, 345, 112, 487, 118, etc...)

como puedo hacer para que no empieze siempre con 146?

[seba123neo]

Código: [Seleccionar]

Private Sub Form_Load()
    Randomize
   
    a = 0
    b = 494
    Text1.Text = Int((a - b + 1) * Rnd + b)
End Sub
saludos.

[NsTeam]

Thanks BRO