Ajouter dynamiquement des étiquettes au formulaire utilisateur = UserForm vide

Je suis en train d'ajouter dynamiquement des boutons à l'objet userform, mais l'objet userform vient juste de vide. Ive a simplifié l'essence même du code, autant que possible, pour la vérification des erreurs (pas que ça m'a aidé)

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

Est-il un moyen de vérifier si les boutons ont été ajoutés, mais sont invisibles? Ou pourquoi ils ne sont pas ajoutés. Toute aide grandement appréciée.

source d'informationauteur BiGXERO