Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
'// Exemple d'implémentation dans un timer (intervalle conseillé : 1000) :
Private Sub Timer1_Timer()
Call FlashWindow(Me.hwnd, Invert)
End Sub