Sub Test
  dim x as integer = 0
  dim test as string = "Text"
  dim l as label
  do
    x += 1
    l = getControl("label" + x.tostring()) 
    l.text = test
  loop while x < 5
End Sub
 
Private Function getControl(ByVal name As String) As Control
  For Each c As Control in Me.Controls
     If c.Name.ToUpper().Equals(name.ToUpper()) Then
       Return c
     End If
  Next
End Function