Private Sub Timer1_Timer()
 
  Static Index As Long
  Dim LabelIndex As Long
 
  Timer1.Enabled = False
 
  Index = Index + 1
  if Index>xxxx then Index=1 ' für xxxx die Anzahl der Labels eintragen
 
  LabelIndex = Index Mod xxxx ' für xxxx die Anzahl der Labels eintragen
 
  ' LabelIndex hat jetzt einen Wert zwischen 0 und (Labelanzahl-1)
 
  ' Mit diesem LabelIndex kannst Du jetzt jedesmal ein anderes Label ansprechen:
 
  If LabelIndex = 0 Then Label1.BackColor = QBColor(Int((16) * Rnd))
  If LabelIndex = 1 Then Label2.BackColor = QBColor(Int((16) * Rnd))
  If LabelIndex = 2 Then Label3.BackColor = QBColor(Int((16) * Rnd))
  If LabelIndex = 3 Then Label4.BackColor = QBColor(Int((16) * Rnd))
  If LabelIndex = 4 Then Label5.BackColor = QBColor(Int((16) * Rnd))
 
  ' oder bei Verwendung eines Control-Arrays:
  ' dabei aufpassen, das LabelIndex mit 0 beginnt
  Label1(LabelIndex).BackColor = QBColor(Int((16) * Rnd))
 
  Timer1.Enabled = True
End Sub

Viel Spass,
R@lf