Надпись (Label) - Мигаем несколько раз

Можно заставить пользователя обратить внимание на некую надпись "помигав" ею (в данном случае название надписи = lblTabToS).
Варианты с изменением размера и цвета шрифта и фона точно будут эффективны, а тут просто мигаем 12 раз при открытии формы ...

В модуле формы обьявляем:

Option Explicit

Private iBlinkCount As Integer 'счётчик "миганий" по таймеру

При загрузке формы ставим интервал таймера:

Private Sub Form_Load()

'Событие загрузка формы

Me.TimerInterval = 300

End Sub

На событие Timer вешаем:

Private Sub Form_Timer()

'Для "красоты" мигаем надписью lblTabToS ...

Me!lblTabToS.Visible = Not Me!lblTabToS.Visible

iBlinkCount = iBlinkCount + 1

If iBlinkCount > 12 Then

Me.TimerInterval = 0 'Хватит! = Отмена таймера

Me!lblTabToS.Visible = True

End If

End Sub

Можно заставить "мигать" по определённому событию : Нажатие кнопки "cmdBlink"

Private Sub cmdBlink_Click()

iBlinkCount = 0

Me.TimerInterval = 300

End Sub

Вариант с плавным уменьшением частоты миганий:

Private Sub Form_Timer()

'Для "красоты" мигаем надписью lblTabToS ...

'(с плавным уменьшением частоты)

Dim ti As Integer 'Интервал

Const iBlinkMax As Integer = 25 'Max число миганий

Select Case iBlinkCount

Case 0 To 4

ti = 100

Case 8 To 16

ti = 200

Case Else

ti = 300

End Select

Me.TimerInterval = ti

Me!lblTabToS.Visible = Not Me!lblTabToS.Visible

iBlinkCount = iBlinkCount + 1

If iBlinkCount > iBlinkMax Then 'Хватит

Me.TimerInterval = 0

Me!lblTabToS.Visible = True

End If

End Sub