Public Class frmShowSomething
 
    Dim labelindex As Integer = 0
    Dim lblDisplay As New List(Of Label)
 
    Dim WithEvents timDisplay As New Timer With {.Interval = 5000}
    Dim WithEvents timShow As New Timer With {.Interval = 1000}
 
 
    Private Sub frmShowSomething_Load(sender As System.Object, _
       e As System.EventArgs) Handles MyBase.Load
 
       'Labels erstellen und positionieren
       For i As Integer = 0 To 3
         lblDisplay.Add(New Label With {.Parent = Me, _
                    .Top = i * 30, .Width = 300, _
                    .BackColor = Color.White, _
                    .BorderStyle = BorderStyle.FixedSingle})
       Next i
 
       timDisplay.Enabled = True
       timShow.Enabled = True
       lblDisplay(labelindex).BackColor = Color.Yellow
    End Sub
 
 
    Private Sub timDisplay_Tick(sender As Object, _
          e As System.EventArgs) Handles timDisplay.Tick
 
        'Auf nächstes Label umschalten
        lblDisplay(labelindex).BackColor = Color.White
        labelindex += 1
        If labelindex >= lblDisplay.Count Then labelindex = 0
        lblDisplay(labelindex).BackColor = Color.Yellow
    End Sub
 
 
    Private Sub timShow_Tick(sender As Object, _
         e As System.EventArgs) Handles timShow.Tick
 
        'Etwas im aktuellen Label anzeigen 
        lblDisplay(labelindex).Text = Now.ToString
    End Sub
End Class