If all labels are already existing (= added in the window editor at development time):
Dim counter As Integer = 1
For i As Integer = 0 To ControlCount - 1
If Control(i) IsA Label And Control(i).Name.Left(10) = "myProperty" Then
Dim lbl As Label = Label(Control(i))
lbl.Text = "xxxxx_" + Str(counter)
counter = counter + 1
End
Next
If you want to add labels at runtime have a look at “control sets”.