Dim l As Long
For l = 1 To 10
Call Me.Controls.Add("VB.Label", "lblTest" & l)
'
With Me.Controls("lblTest" & l)
.Visible = True
.AutoSize = True
.Top = .Height \* l
.Caption = "Dynamic Label"
End With
Next l
Die andere Variante besteht darin ein Label auf das From zu plazieren, das Property ‚Index‘ auf ‚0‘ zusetzen und die Labels mit