bien hasta hay todo bien el problema es que cuando elimino un y quiero volver a alinear los que quedan uno al lado del otro (pegaditos) ya no lo puedo alinear mas de esta manera, porque me da el error de que la matriz x no existe, entonses alguien conose una forma "elegante" de solucionar esto
eso es lo que tengo:
Cita:
Private Sub Form_Load()
For i = 1 To 10
Load Cmd(i)
Cmd(i).Visible = True
Next
Alinear
End Sub
Sub Alinear()
'El Cmd(0) no lo uso,esta invisible
For i = 1 To Cmd.Count - 1
Cmd(i).Left = Cmd(i - 1).Left + Cmd(0).Width
Next
End Sub
Private Sub Cmd_Click(Index As Integer)
Unload Cmd(Index)
Alinear
End Sub
For i = 1 To 10
Load Cmd(i)
Cmd(i).Visible = True
Next
Alinear
End Sub
Sub Alinear()
'El Cmd(0) no lo uso,esta invisible
For i = 1 To Cmd.Count - 1
Cmd(i).Left = Cmd(i - 1).Left + Cmd(0).Width
Next
End Sub
Private Sub Cmd_Click(Index As Integer)
Unload Cmd(Index)
Alinear
End Sub
Por las dudas aclaro,
pregunta (poque no descargar todos y cargar 9 en ves de 10)
Respuesta (porque esto lleva un pequeño tiempo,y no me sirve)
Bueno muchas gracias
y saludos