Option Explicit
Private Sub Timer1_Timer() Dim i As Integer Dim lastColor As OLE_COLOR lastColor = Label1(0).BackColor For i = 0 To Label1.Count - 2 Label1(i).BackColor = Label1(i + 1).BackColor Next Label1(i).BackColor = lastColor End Sub