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