een aantal labels en txtvakken aanmaken

[Pilchaar]

hallo kan iemand me helpen hoe ik labels die ik aanmaak moet opvullen via een databank IN vb.net 2005.

For teller = 0 To aantal - 1
labels(teller) = New Label
labels(teller).BackColor = Color.Violet
labels(teller).ForeColor = Color.Black
labels(teller).TextAlign = ContentAlignment.MiddleCenter
labels(teller).Name = "lbl(" & x & ")"
labels(teller).Tag = x
Het gaat hem over deze code : " labels(teller).Text = TPersoonlijkBindingSource("Tappartement").Rows(teller).Item("naam") "
labels(teller).Height = 25
labels(teller).Width = 150
Controls.Add(labels(teller))
labels(teller).Location = New Point(x, y)
If (teller + 1) Mod 3 <> 0 Then
x = x + 350
Else
y = y + 50
x = 50
End If

kan iemand me zo snel mogelijk zeggen welke con. ik moet gebruiken?