Not at all useful but quite a pleasant effect I think. Can be applied to any control that has either BackColor or ForeColor:
Private Sub Form_Timer()
DriftColors Label1
End Sub
Sub DriftColors(ByRef ctl As Control)
On Error Resume Next
Dim iR As Integer, iG As Integer, iB As...