Dim i, x As Integer
x = 10
Dim intLeft As Integer = 10
For i = 0 To x
Dim oNewLabel As New Label
oNewLabel.Name = "Label" & i
oNewLabel.Location = New Point(intLeft, 20)
oNewLabel.Size = New Size(50, 23) 'Por default trae 100,23
oNewLabel.Text = oNewLabel.Name
Controls.Add(oNewLabel)
intLeft += 50
Next