recorrer controles

[pkj]

Gran aporte, erbuson. Este tema lo he visto varias veces pero nunca con esta solución.

Para aumentar el valor de este aporte comentaré que funciona perfectamente con matrices de objetos:

Ejm: Comenzando con 4 matrices de labels, (de Label1 a Label4), independientemente del número de elementos de cada matriz, así numeraríamos sus captions:

Código vb:

Private Sub Command1_Click()
  Dim F1 As Integer
  Dim F2 As Integer
  Dim Labels As Integer
  Labels = 4
  For F1 = 1 To Labels
    For F2 = 0 To Controls("label" & F1).ubound
      Controls("label" & F1)(F2).Caption = F2 + 1
    Next F2
  Next F1
End Sub
 

Saludos