Private
Declare
Function
FlashWindow
Lib
"
user32
"
(
ByVal
hwnd
As
Long
,
ByVal
bInvert
As
Long
)
As
Long
Private Sub Command1_Click()
FlashWindow Me .hwnd, 1
End Sub
Private Sub Command1_Click()
FlashWindow Me .hwnd, 1
End Sub