Generador de Numeros

[David]

A esto me refiero:

Código vb:

Option Explicit
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Command1_Click()
Text1.Text = Aleatorio(1000, 9999)
Text2.Text = Aleatorio(1000, 9999)
Text3.Text = Aleatorio(1000, 9999)
Text4.Text = Aleatorio(100000, 999999)
Text4.Text = Text4.Text & Aleatorio(10000, 99999)
End Sub
Private Sub Form_Load()
Randomize Timer 'Llamar a Randomize una única vez
End Sub