[tincho]

Hola a todos.
En la lista internacional se dio una charla sobre como cambiar el texto de varias Labels en tiempo de ejecución.
les trasmito un procedimiento que se me ocurrió para editar el texto de algunos controles.
Dejo también el proyecto con el que hice el experimento por si a alguien le interesa.

GAMBAS

Public Sub Button1_Click()
 
  Dim i As Integer
 
  For i = 1 To 3
    ControlStamp(["Label", "Label" & CStr(i), "Bingo!!"])
    Wait 0.5
  Next
 
End
 
Public Sub ControlStamp(stx As String[])
 
  Dim ct As Object
  Dim i As Integer
  Dim colex As New Collection
 
  If stx.Count = 3 Then
    Select stx[0]
      Case "TextBox", "ComboBox", "Label" 'To be continued....
        For Each ct In Me.Controls
          If Object.Type(ct) = stx[0] Then
            colex.Add(ct, ct.Name)
          Endif
        Next
        If colex.Exist(stx[1]) Then
          colex[stx[1]].Text = stx[2]
        Endif
    End Select
  Endif
End

Saludos.