Dim i As Integer
        For i = 30 To 1 Step -1
            If L(i) > 0 Then
                ForeColor = Color.Red
            Else
                ForeColor = Color.Green
            End If
 
        Next i

   '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

L30.Text = L29.Text
        L29.Text = L28.Text
        L28.Text = L27.Text
        L27.Text = L26.Text
        L26.Text = L25.Text
        L25.Text = L24.Text
        L24.Text = L23.Text
        L23.Text = L22.Text
        L22.Text = L21.Text
        L21.Text = L20.Text
        L20.Text = L19.Text
        L19.Text = L18.Text
        L18.Text = L17.Text
        L17.Text = L16.Text
        L16.Text = L15.Text
        L15.Text = L14.Text
        L14.Text = L13.Text
        L13.Text = L12.Text
        L12.Text = L11.Text
        L11.Text = L10.Text
        L10.Text = L9.Text
        L9.Text = L8.Text
        L8.Text = L7.Text
        L7.Text = L6.Text
        L6.Text = L5.Text
        L5.Text = L4.Text
        L4.Text = L3.Text
        L3.Text = L2.Text
        L2.Text = L1.Text
        L1.Text = Label1.Text
 
        Dim teiler As Decimal = 30
 
        Dim xx As Decimal = (CDec(L1.Text) + CDec(L2.Text) + CDec(L3.Text) + _
          CDec(L4.Text) + CDec(L5.Text) + CDec(L6.Text) + CDec(L7.Text) + CDec( _
          L8.Text) + CDec(L9.Text) + CDec(L10.Text) _
                       + CDec(L11.Text) + CDec(L12.Text) + CDec(L13.Text) + _
                       CDec(L14.Text) + CDec(L15.Text) + CDec(L16.Text) + CDec( _
                       L17.Text) + CDec(L18.Text) + CDec(L19.Text) + CDec( _
                       L20.Text) _
                       + CDec(L21.Text) + CDec(L22.Text) + CDec(L23.Text) + _
                       CDec(L24.Text) + CDec(L25.Text) + CDec(L26.Text) + CDec( _
                       L27.Text) + CDec(L28.Text) + CDec(L29.Text) + CDec( _
                       L30.Text)) / teiler
        Dim txt As String = xx.ToString("0.00")
 
        mittel.Text = txt

   dim sum as decimal
   For i As Integer = 1 To 30
       labels(i).BackColor = Color.Red
       If CDec(labels(i).Text) < 0 Then labels(i).BackColor = Color.Green
       sum += cdec(labels(i).text)
   Next i
 
   dim mw as decimal = sum / 30

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Dim Label(30) As Label
        'Referenz-Variable
        Dim lbl As Label
        'Alle Controls auf der Form 
        For Each ctl As Control In Me.Controls
            'Labels deren Name mitL beginnt filteren
            If TypeOf ctl Is Label AndAlso ctl.Name.StartsWith("L") Then
                'Control als label casten
                lbl = DirectCast(ctl, Label)
                Label(CInt(lbl.Name.Substring(1))) = lbl
            End If
        Next ctl
 
        Dim sum As Decimal
        For i As Integer = 1 To 30
            Label(i).BackColor = Color.Red
            If CDec(Label(i).Text) <= 0 Then Label(i).BackColor = Color.Green
            sum += CDec(Label(i).Text)
        Next i
 
        Dim mw As Decimal = sum / 30
 
    End Sub
End Class

        L30.Text = L29.Text
        L29.Text = L28.Text
        L28.Text = L27.Text
        L27.Text = L26.Text

Public Class frmRunningList
 
    Dim WithEvents lboData As New ListBox With
        {.Parent = Me, .Top = 10, .Left = 10, .Width = 100, .Height = 300,
        .DrawMode = DrawMode.OwnerDrawFixed}
 
    Dim bs As New BindingSource   'für steuerbare Datenbindung
 
    Dim myData As New List(Of Decimal)  'Daten-Liste
 
    Dim WithEvents timData As New Timer With {.Interval = 1000}
 
    Dim rndm As New Random(123456)  'Datenlieferant
 
 
    Private Sub frmRunningList_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load
 
        'Datenbindung einrichten
        bs.DataSource = myData
        lboData.DataSource = bs
 
        timData.Enabled = True
    End Sub
 
 
    Private Sub timData_Tick(sender As Object, e As EventArgs)_
            Handles timData.Tick
 
        'Listenlänge auf 10 begrenzen 
        If myData.Count = 10 Then myData.RemoveAt(0)
 
        'neuen Zufallswert anfügen an Liste
        myData.Add(CDec(Math.Round(rndm.NextDouble, 2)))
 
        'Datenbindung der Daten-Liste an die Box aktualisieren
        bs.ResetBindings(False)
 
        'aktuellen Mittelwert berechnen
        Dim mw As Decimal
        For i As Integer = 0 To myData.Count - 1
            mw += myData(i)
        Next i
        mw /= myData.Count
 
        Me.Text = "Mittel: " & Math.Round(mw, 2).ToString
    End Sub
 
 
    Private Sub lboData_DrawItem(sender As Object, 
               e As DrawItemEventArgs) Handles lboData.DrawItem
 
 
        If e.Index < 0 Then Exit Sub
 
        'Item in verschiedenen Farben zeichnen
 
        e.DrawBackground()
 
        Dim txt As String = myData(e.Index).ToString
 
        'farbige Pinsel erstellen
        Using redbrush As New SolidBrush(Color.Red),
              greenbrush As New SolidBrush(Color.Green)
 
            'Text-Farbe anhand der Datenausprägung wählen
            'und an die richtige Stelle zeichnen (e.bounds)
            If CDec(txt) > 0.5 Then
              e.Graphics.DrawString(txt & " ", lboData.Font, greenbrush,
              e.Bounds.Location)
            Else
              e.Graphics.DrawString(txt & " ", lboData.Font, redbrush,
              e.Bounds.Location)
            End If
        End Using
    End Sub
End Class