Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
FlashWindow заставляет мигать заголовок окна. Функция используется для привлечения внимания пользователя. При мигании происходит изменение цвета активного окна на неактивное и наоборот. Желательно, чтобы окно мигало несколько раз вместо одного раза. Когда вы используете эту функцию, не забывайте вызвать ее еще раз, чтобы вернуться к первоначальному состоянию, устанавливая bInvert в 0.
Функция возвращает 0, если окно было неактивным перед миганием и 1, если было активным.
' Окно мигает 5 раз для привлечения внимания Dim c As Integer, retval As Long For c = 1 To 10 ' 5 раз цвет активного окна и 5 раз - неактивного retval = FlashWindow(Form1.hwnd, 1) ' переключаем вид окна Sleep 500 ' пауза через каждые 500 миллисекуд (1/2 секунды) Next c retval = FlashWindow(Form1.hwnd, 0) ' окно должно выглядить активным