Genera Numeros Aleatorios

Breve Descripción del Programa:

"Genera numeros aleatorios, segun los deseados"

Private Sub generar_Click()
Dim List As String
For i = 1 To Val(num)
num = Int((100 * Rnd) + 1)
List = Format(num, "0000")
List1.AddItem (List)
Next
End Sub

Private Sub clean_Click()
num = ""
List1.Clear
num.SetFocus
End Sub