Ett sätt:
Dim iIndex As Integer
iIndex = 1 'Tex
Controls.Add "VB.Label", "DittLabelNamn" & iIndex, Me
With Controls("DittLabelNamn" & iIndex)
.Left = 200
.Top = 200
.Caption = "Hej"
.Visible = True
.ZOrder (0)
' osv osv ..
End With
Ett annat sätt är att skapa en kontrollarray och ladda lablar efterhand med: load DittLabelNamn(iIndex).
Men ska du bara presentera text så duger kanske exemplet ovan?