Ordenar controles

[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!!