Dynamisches Hinzufügen von Beschriftungen zum Benutzerformular = Leeres Benutzerformular

Ich versuche, Schaltflächen dynamisch zum Benutzerformular hinzuzufügen, aber das Benutzerformular ist leer. Ich habe die Essenz des Codes für die Fehlerprüfung so weit wie möglich vereinfacht (nicht, dass es mir geholfen hat)

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

Gibt es eine Möglichkeit zu überprüfen, ob die Schaltflächen hinzugefügt wurden, aber unsichtbar sind? Oder warum sie nicht hinzugefügt werden. Jede Hilfe sehr geschätzt.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage