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

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

<code>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
</code>

¿Hay alguna forma de verificar si los botones se han agregado pero son invisibles? O por qué no se están agregando. Cualquier ayuda muy apreciada.

Respuestas a la pregunta(2)

Su respuesta a la pregunta