'Referenz-Variable
   Dim lbl As Label
 
   'Alle Controls auf der Form 
   For Each ctl As Control In Me.Controls
       'Labels, deren Name mit L beginnt, filtern
       If TypeOf ctl Is Label AndAlso ctl.Name.StartsWith("L") Then
          'Control als Label casten
          lbl = DirectCast(ctl, Label)
 
          'ab hier Zugriff z.B.
          Select Case lbl.Name
               Case "L1"
                   '....
          End Select
       End If
   Next ctl

  Dim labels(30) As Label
  'Referenz-Variable
  Dim lbl As Label
  'Alle Controls auf der Form 
  For Each ctl As Control In Me.Controls
      'Labels deren NamemitL beginnt filteren
      If TypeOf ctl Is Label AndAlso ctl.Name.StartsWith("L") Then
         'Control als label casten
         lbl = DirectCast(ctl, Label)
         labels(CInt(lbl.Name.Substring(1))) = lbl
      End If
  Next ctl