Declare Function FlashWindowEx Lib "user32" _ (pfwi As FLASHWINFO) As Boolean
Функция FlashWindowEx заставляет мигать указанное окно для привлечения внимания пользователя к окну, не имеющему фокуса ввода. Функция не изменяет активности окна. При мигании происходит изменение цвета статуса активного окна на неактивное и наоборот.
Возвращаемое значение определяет состояние окна до вызова функции FlashWindowEx. Если строка заголовка была активной до вызова функции, возвращается ненулевое значение. В противном случае функция вернет ноль.
' Окно мигает 5 раз для привлечения внимания Dim fwi As FLASHWINFO ' Определяем размер структуры fwi.cbSize = Len(fwi) ' Определяем статус мигания fwi.dwFlags = FLASHW_ALL Or FLASHW_TIMER ' Определяем частоту мигания равной миганию каретки fwi.dwTimeout = 0 ' Описатель окна для мигания fwi.hwnd = Me.hwnd ' Число миганий fwi.uCount = 5 FlashWindowEx fwi