como ordenar de forma ascendente y descendente en un list box

[axpicasso]

bueno espero que esta solucion sea menos pesada y la mas rapida y sobre todo que te ayude mucho

Dim list As New System.Collections.ArrayList()

Dim arreglo() As Integer = {2, 1, 5, 3, 8, 9, 4, 6, 7}
Dim valor As Integer
Dim i As Integer

For Each valor In arreglo
list.Add(valor)
Next

list.Sort()

'ascendente
For i = 0 To list.Count - 1
ListBox1.Items.Add(i)
Next

'descendente
For i = list.Count - 1 To 0 Step -1
ListBox2.Items.Add(i)
Next