Ordenar controles

[truskyvb]

Hola a todos. Recurro a vosotros porque no sé hacer lo que pregunto y por otra parte, he consultado en otros sitios sin éxito. Tal vez porque lo que quiero no se puede hacer.

Tengo 5 botones.
Están en línea (en vertical) con una diferencia de TOP entre ellos de 100

Command1(0).top = 100
Command1(1).top = 200
Command1(2).top = 300
Command1(3).top = 400
Command1(4).top = 500

Lo que busco es que cada vez que hago clic en uno con lo que será visible false, los que quedan
se recoloquen a partir del TOP = 100.

Es decir, si clico el Command1(3):
Command1(3).visible = False
Command1(0).top = 100
Command1(1).top = 200
Command1(2).top = 300
Command1(4).top = 400

Al clicar otro, por ejemplo el Command1(0):
Command1(0).visible = False
Command1(1).top = 100
Command1(2).top = 200
Command1(4).top = 300

Y así sucesivamente.

El ejercicio que estoy haciendo de preguntas/respuestas, consta de muchos botones, por lo que hacer las posibles variantes una a una es
una barbaridad.

¿Se puede hacer lo que pretendo?

Espero haberlo explicado bien.
Gracias de antemano.
Un saludo

[lokoman]

Hola!!
Creo que esto te puede servir:

Código vb:

'CMD ES EL NOMBRE DEL COMMAND
 
Private Sub cmd_Click(Index As Integer)
    Dim I, J, AUX As Integer
    
    cmd(Index).Visible = False
    
    For I = (Index) To cmd.UBound
        For J = (Index + 1) To cmd.UBound
            If cmd(I).Top < cmd(J).Top Then
                If cmd(J).Visible = True Then
                    AUX = cmd(J).Top
                    cmd(J).Top = cmd(I).Top
                    cmd(I).Top = AUX
                End If
            End If
        Next J
    Next I
End Sub
 

Nos cuentas!!

[truskyvb]

Sí que me sirve. Muchísimas gracias.
Un saludo

[lokoman]