мигание надписи на форме БД Microsoft Access

мигание надписи на форме БД Microsoft Access
начало модуля формы:
Option Explicit
Private iBlinkCount As Integer
загрузка формы:
Private Sub Form_Load()
Me.TimerInterval = 300
End Sub
событие-таймер:
Private Sub Form_Timer()
Me!Надпись30.Visible = Not Me!Надпись30.Visible
iBlinkCount = iBlinkCount + 1
If iBlinkCount = 10 Then
Me.TimerInterval = 0
Me!Надпись30.Visible = True
End If
End Sub
программы на Microsoft Access
https:access-program.ru