Ascendente y Descendente

Dim arreglo(99) As Integer
Dim I As Integer
Private Sub Command1_Click()
For I = 0 To 99
arreglo(I) = CInt(Rnd(100) * 100)
List1.AddItem arreglo(I)
Next I
End Sub
Private Sub Command2_Click()
List1.Clear
For I = 0 To 99 Step 1
List1.AddItem arreglo(99 - I)
Next I
End Sub
Private Sub Command3_Click()
List1.Clear
For I = 0 To 99
List1.AddItem arreglo(I)
Next I
End Sub