Реализовать мигающую кнопку - VB

Формулировка задачи:

Всем привет! Не найдется примера анимации с кнопкой. Цель привлечь внимание. Например мигающая кнопка, или что то инное...

Решение задачи: «Реализовать мигающую кнопку»

textual
                            Листинг программы 
                        

                            ' Установить в Properties кнопки Command1  свойство Style = 1- Graphyical
' На форму положить Timer1
Private Sub Command1_Click()
Timer1.Enabled = False
Command1.BackColor = &H8000000F
'Ваш код
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Command1.BackColor = RGB(Rnd * 256, Rnd * 356, Rnd * 256)
End Sub
                        