Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer
Private Const Invert As Integer = 1
'// Exemple d'implémentation dans un timer (intervalle conseillé : 1000) :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
FlashWindow(Me.Handle.ToInt32, Invert)
End Sub