tabla de posiciones

[Avellaneda]

Iniciado por DIDAKE

Estoy realizando algo así como una tabla de posiciones de equipos. Tal quedó en 1er puesto, tal en segundo...
Tengo un array de 4 labels , que son Label(0) a Label (3). Todos ellos almacenan un entero, un número, que identifica los puntos obtenidos.
quiero colocar otros 4 labels, uno debajo de cada uno, que informen en que posición de la tabla han quedado, 1ros , segundos , 3ros o 4tos
Necesito un ayuda , algún indicio del código

Te pongo un ejemplo comentado de cómo cargar en un array los labels y ordenarlos.

Código:

Dim a() As Integer      ' El array
Dim i As Integer        ' contador de bucles
Dim k As Integer        ' mayor valor del array de controles

k = Label1.Count - 1
' redimensionar la matriz al número de Labels
ReDim a(k)
' pasar los valores de los label al array
For i = 0 To k
    a(i) = Label1(i)
Next i

' ordenar el array
Dim x As Integer, j As Integer
x = 1
While (x = 1)
    x = 0
    For i = 1 To UBound(a)
        If a(i - 1) > a(i) Then
            j = a(i - 1)
            a(i - 1) = a(i)
            a(i) = j
            x = 1
        End If
    Next i
Wend

' listar el array ordenado de menor a mayor (sólo para comprobación)
For i = 0 To UBound(a)
    List1.AddItem a(i)
Next i