Dim checkboxen As New List(Of CheckBox)
Dim WithEvents timColor As New Timer With _
          {.Interval = 100, .Enabled = True}
 
Private Sub frmTest_Load(ByVal sender As Object, _
       ByVal e As System.EventArgs) Handles Me.Load
     'Einige Checkboxen auflisten und mit Farbangabe versehen
     checkboxen.Add(New CheckBox With _
        {.Parent = Me, .Top = 10, .Tag = Color.Red, .Text = "Red"})
     checkboxen.Add(New CheckBox With _
        {.Parent = Me, .Top = 30, .Tag = Color.Green, .Text = "Green"})
     checkboxen.Add(New CheckBox With _
        {.Parent = Me, .Top = 50, .Tag = Color.Blue, .Text = "Blue"})
     checkboxen.Add(New CheckBox With _
        {.Parent = Me, .Top = 70, .Tag = Color.Yellow, .Text = "Yellow"})
End Sub
 
'Das Timer-Event (hier in der Hauptform)
Private Sub timColor_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles timColor.Tick
 
    Static checkboxlistindex As Integer 'Index zwischenspeichern
 
    Dim counter As Integer = 0 
 
    'Suche nach der nächsten checked-Box  
    Do
       checkboxlistindex += 1
       counter += 1
       If counter > checkboxen.Count Then Exit Sub 'Keine Checkbox markiert
 
       If checkboxlistindex >= checkboxen.Count Then
          checkboxlistindex = 0 'umlaufender Index
       End If
    Loop While Not checkboxen(checkboxlistindex).Checked
 
    'Hintergrundfarbe setzen (Hauptform) 
    Me.BackColor = CType(checkboxen(checkboxlistindex).Tag, Drawing.Color)
End Sub