Resumir código

[truskyvb]

Buenos días,

¿Cómo se puede resumir el siguiente código?

isButton1(1).Top = isButton1(0).Top + isButton1(0).Height
isButton1(2).Top = isButton1(1).Top + isButton1(1).Height
isButton1(3).Top = isButton1(2).Top + isButton1(2).Height
isButton1(4).Top = isButton1(3).Top + isButton1(3).Height
isButton1(5).Top = isButton1(4).Top + isButton1(4).Height
isButton1(6).Top = isButton1(5).Top + isButton1(5).Height

Tengo 50 botones que declarar para que vayan uno bajo el otro correlativamente.
Gracias de antemano.

[Malenko]

Yo utilizaria un bucle "for", así podrías resumir todo el código en... 2 lineas aprox.

[truskyvb]

Gracias Malenko, pero el problema que tengo es que no consigo desarrollar ese bucle, (estoy muy verde en visual) por eso pedía ayuda.

Un saludo

[gasuton]

truskyvb yo también sigo verde en esto de VB6 pero para poder ayudarte mejor, primero necesito saber algo, los 50 botones tus los tienes físicamente creados en tu form o los generas dinamicamente en tiempo de ejecución?

Saludos

[Malenko]

Lo pongo sin probar:

For index As Integer = 0 To 49
isButton1(index+1).Top = isButton1(index).Top + isButton1(index).Height
Next

[truskyvb]

Gracias a los dos por ayudarme.
Los botones existen físicamente y el código de Malenko funciona.
Muchas gracias a ambos.