hola a todos, necesito una manito con este programa XD este es el diseño:



mi codigo hasta ahora es este :

Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
 
End Sub
 
Private Sub cmdordenar_Click()
If optascendente Then
 
 
End If
 
End Sub
 

la función que quiero que haga este programa es que cuando le des click al botom añadir, añada el numero que pongas en el primer text y cuando le des a ascendente o descendente los ordene de forma ascendente o descendente XD espero me entiende y gracias de antemano.

saludos cordiales!

no T-T

esta un poco largo pero lo vere XD gracias

Es más sencillo si aplicas el ordenamiento por Inserción

http://es.wikipedia.org/wiki/Ordenamiento_por_inserci%C3%B3n

Private Sub insertionSort(ByVal numbers() As Integer) ' Es una función, 
'debemos pasarle el array de números desde el Sub Main()
 
        Dim i, j, index As Integer
        i = 1
 
        Do
            index = numbers(i)
            j = i - 1
 
            While ((j >= 0) And (numbers(j) > index))
                numbers(j + 1) = numbers(j)
                j = j - 1
            End While
            numbers(j + 1) = index
            i = i + 1
        Loop Until i > (UBound(v))
    End Sub

Tambien tienes el ordenamiento por Selección

For i = 1 To n - 1
   minimo = i
   For j = i + 1 To n
      If x(minimo) > x(j) Then
         minimo = j
      End If
   Next j
   temp = x(i)
   x(i) = x(minimo)
   x(minimo) = temp
Next i

No me funciona