no funciona este código, se queda trabado cada vez que quieres dar al botón de "ordenar" , los siguientes variables están declaradas como, i, j, Auxiliar, n como de valor entero. El código es el siguiente:
If rbdirecto.Checked = True Then
n = lstnumeros.Items.Count
For i = 1 To n
Auxiliar = lstnumeros.Items(i)
j = i - 1
While (j >= 0) And (Auxiliar < lstnumeros.Items(j))
lstnumeros.Items(j + 1) = lstnumeros.Items(j)
j = j - 1
End While
lstnumeros.Items(j + 1) = Auxiliar
Next
End If
Sería de mucha ayuda que me digan en donde esta el error del codigo.