Мигание заголовка формы

Public Enum FlashWindowFlags
    FLASHW_STOP = 0         ' Перестать мигать. Система восстанавливает окно до его первоначального состояния.
    FLASHW_CAPTION = 1      ' Мигание заголовка окна (если окно свёрнуто на панели задач, мигание не заметно)
    FLASHW_TRAY = 2         ' Мигание кнопки на панели задач (само развёрнутое окно не мигает)
    FLASHW_ALL = 3          ' Мигание и заголовка развёрнутого окна и кнопки на панели задач. Это эквивалентно установке флагов: FLASHW_CAPTION Or FLASHW_TRAY.
    FLASHW_TIMER = 4        ' Мигать непрерывно, пока флаг FLASHW_STOP установлен.
    FLASHW_TIMERNOFG = 12   ' Мигать до тех пор, пока окно выходит на первый план.
End Enum
Private Type FLASHWINFO
    cbSize As Long
    hWnd As Long
    dwFlags As FlashWindowFlags
    uCount As Long
    dwTimeout As Long
End Type
Const INT_MAXVALUE = 1000   '4294967295#     ' 0xFFFFFFFF.
Public fInfo As FLASHWINFO
Private Declare Function FlashWindowEx Lib "User32" Alias "FlashWindowExA" (ByRef fwInfo As FLASHWINFO) As Boolean
 
Public Function fnFlashWindowEx(ByVal frm As Form, Optional ByVal dwFlags As Long = 3, Optional ByVal dwTimeout As Long = 0, Optional ByVal count As Long = 0) As Boolean
'frm - Имя формы
'dwFlags - Флаг типа FlashWindowFlags
'dwTimeout - Таймаут мсек
'count - Количество повторов
  
    
    If count = 0 Then count = INT_MAXVALUE
    fInfo.cbSize = Len(fInfo)
    fInfo.hWnd = frm.hWnd
    fInfo.dwFlags = dwFlags
    fInfo.uCount = count
    fInfo.dwTimeout = dwTimeout
    fnFlashWindowEx = FlashWindowEx(fInfo)
    
End Function

Private fInfo As FLASHWINFO
Private Declare Function FlashWindowEx Lib "User32" (ByRef fwInfo As FLASHWINFO) As Boolean