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

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

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

Private Sub Form_Load()'Событие загрузка формы
    Me.TimerInterval = 300
End Sub

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

Private Sub Form_Timer()
Static iBlinkCount As Integer   ' Счётчик "миганий" по таймеру
'Для "красоты" мигаем надписью lblTabToS ...
    Me!lblTabToS.Visible = Not Me!lblTabToS.Visible
    iBlinkCount = iBlinkCount + 1
    If iBlinkCount > 12 Then 
        Me.TimerInterval = 0 'Хватит! = Отмена таймера
        Me!lblTabToS.Visible = True
        iBlinkCount = 0
    End If
End Sub

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

Private Sub cmdBlink_Click()
    iBlinkCount = 0
    Me.TimerInterval = 300
End Sub

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

Private Sub Form_Timer()
'Для "красоты" мигаем надписью LabelMessage 10 раз ... и с плавным уменьшением частоты
Static iBlinkCount As Integer   ' Счётчик "миганий" по таймеру
Dim ti As Integer               ' Интервал
Const iBlinkMax As Integer = 10 ' Max число миганий
    Select Case iBlinkCount
        Case 1 To 4
            ti = 200
        Case 5 To 8
            ti = 400
        Case Else
            ti = 800
    End Select
    Me.TimerInterval = ti
    Me.LabelMessage.Visible = Not Me!LabelMessage.Visible
    iBlinkCount = iBlinkCount + 1
    If iBlinkCount > iBlinkMax Then 'Хватит
        Me.TimerInterval = 0
        Me.LabelMessage.Visible = True
        iBlinkCount = 0
    End If
End Sub