Option Explicit
 
Private Sub cmd_Start_Click()
 
frm_auswahl.Hide
frm_Timer.Show
frm_Timer.Timer.Enabled = True
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
 
    Static checkboxlistindex As Integer 'Index zwischenspeichern
 
    Dim counter As Integer, checked As Boolean
 
    'Suche nach der nächsten checked-Box
    Do
        checkboxlistindex = checkboxlistindex + 1
        counter = counter + 1
        If counter > Me.Controls.Count Then Exit Sub 'Keine Checkbox markiert
 
        If checkboxlistindex >= Me.Controls.Count Then
                checkboxlistindex = 0 'umlaufender Index
        End If
 
        checked = False
        If Left(Me.Controls(checkboxlistindex).Name, 2) = "ch" Then
            checked = (Me.Controls(checkboxlistindex).Value = 1)
        End If
    Loop While Not checked
 
    'Hintergrundfarbe setzen
    frm_Timer.BackColor = Me.Controls(checkboxlistindex).BackColor
End Sub