Создать анимированный Label. 
Добавьте Label и Timer на форму. 
Установите свойство таймера Interval в 1. 
Вставьте следующий код на форму. 
Private Sub Timer1_Timer() 
Static A 
A = A + 10: If A > 510 Then A = 0 
'Для изменения эффекта, измените 0 внизу 
'Вы также можете изменить интевал 'Abs(A - 256)' 
'Также вы можете изменить интервал таймера 
Label1.BackColor = RGB(Abs(A - 256), 0, 0) 
End Sub