FlashWindow

' Copiare in un modulo :

Option Explicit
Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bInvert As Long) As Long
Option Explicit
Private Sub Command1_Click()
'flash on/off

Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer()
FlashWindow Form1.hwnd, 1
End Sub