como ordenar de forma ascendente y descendente en un list box

[eduardo90]

Bien yo creo que en un listbox tienes números y los quieres ordenar en orden ascendente y descendente bien.

recorda que si en caso de que son números podemos colocarlos en un array y mostrar dichos elementos en un listbox entonces lo mas simple que debes hacer es "EL METODO DE LA BURBUJA",

aca te pongo el código para que trabajes con él

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arreglo() As Integer = {2, 1, 5, 3, 8, 9, 4, 6, 7}
Dim i, pasadas, almacena As Integer

'Adiere todos los elementos del arreglo en
'forma original
For i = 0 To 8
listNormal.Items.Add(arreglo(i))
Next


'Aca esta el metodo de la burbuja para ordenar
'en forma Ascendente

For pasadas = 1 To 8
For i = 0 To 8 - 1
'Compara los elementos adyacentes y los intercambia
'si el primer elemento es mayor que el segundo
If (arreglo(i) > arreglo(i + 1)) Then
almacena = arreglo(i)
arreglo(i) = arreglo(i + 1)
arreglo(i + 1) = almacena
End If
Next
Next

For i = 0 To 8
listAscendente.Items.Add(arreglo(i))
Next


For pasadas = 1 To 8
For i = 0 To 8 - 1
'Lo que lo distinge es el "<" que hace
'lo contrario de ordenarlo en forma
If (arreglo(i) < arreglo(i + 1)) Then
almacena = arreglo(i)
arreglo(i) = arreglo(i + 1)
arreglo(i + 1) = almacena
End If
Next
Next

For i = 0 To 8
listDescendente.Items.Add(arreglo(i))
Next
End Sub
End Class

Espero haberte ayudado.