Numeros Aleatorios "Filas de 10"

Breve Descripción del Programa:

"Captura, ordena ascendente y descendente mente numeros aleatorios"

Dim arreglo(99) As Integer
Dim I As Integer

Private Sub generar_Click()
For I = 0 To 99
arreglo(I) = CInt(Rnd(100) * 100)
lista.AddItem arreglo(I)
Next I
End Sub
Private Sub mascendente_Click()
lista.Clear
For I = 0 To 99 Step 1
lista.AddItem arreglo(99 - I)
Next I
End Sub
Private Sub mdescendente_Click()
lista.Clear
For I = 0 To 99
lista.AddItem arreglo(I)
Next I
End Sub