Adición dinámica de etiquetas al formulario de usuario = Formulario de usuario en blanco

Question

Estoy intentando agregar botones dinámicamente a la forma de usuario, pero la forma de usuario simplemente aparece en blanco. Ive simplifica la esencia del código tanto como sea posible para la comprobación de errores (no es que me ha ayudado)

Sub addLabel() 
UserForm2.Show  
Dim theLabel As Label 
Dim labelCounter As Integer 

For labelCounter = 1 To 3 
    Set Label = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True) 
    With theLabel 
     .Caption = "Test" & labelCounter 
     .Left = 10 
     .Width = 50 
     .Top = 10 
    End With 
End Sub 

¿Hay alguna manera de comprobar si los botones se han añadido, pero son invisibles? O por qué no están siendo agregados. Cualquier ayuda muy apreciada.

Answer 1

algunas cosas:

1. Tiene que mostrar su formulario de usuario como vbModeless - de lo contrario el código de paradas en UserForm2.Show
2. Estás creando un objeto llamado Label a continuación, utilizando With en theLabel

3. Se hará luego necesita incrementar la posición de sus tres etiquetas para evitar la superposición (lo que he hecho usando Top).

   Sub addLabel() 
   UserForm2.Show vbModeless 
   Dim theLabel As Object 
   Dim labelCounter As Long 
   
   For labelCounter = 1 To 3 
       Set theLabel = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True) 
       With theLabel 
        .Caption = "Test" & labelCounter 
        .Left = 10 
        .Width = 50 
        .Top = 10 * labelCounter 
       End With 
   Next 
   End Sub 
   

Answer 2

intento por debajo de código

Set theLabel = UserForm2.Designer.Controls.Add("Forms.Label.1", "Test1", True)