17
Октябрь
2008
Как заставить мигать окно?
Windows |На форме должна находиться кнопка с именем Command1.
Option Explicit
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Sub Command1_Click()
Call FlashWindow(Me.hwnd, -1)
End Sub