Hola buen día para vos también.
Creo que lo que necesitás lo podrías hacer con lo siguiente:
For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is Label Then MsgBox Me.Controls(i).caption
If TypeOf Me.Controls(i) Is Label Then MsgBox Me.Controls(i).caption
Next i
Espero que esto te ayude.
Te mando un abrazo y cualquier cosa avisame, gracias.
----- Original Message -----Sent: Friday, July 13, 2007 9:39 AMSubject: [VBASICWORLD] Labels y Menús Dinámicos
Buenos días compañeros.Trabajo en Visual Basic 6.0.Estoy en un proyecto donde necesito dinámicamente cambiar todas las etiquetas (labels y menús).Originalmente mi sistema esta en Español, y ahora mediante una función yo encuentro en mi base de datos la traducción al idioma escogido. (Ingles, etc)El problema es que no se como recorrer todos las etiquetas y capturar el caption de cada una de ellas para luego buscarlo en mi base de datos.Si alguien tiene alguna idea se los agradezco.Muchas GraciasCarlos Cruz _,_._,___