vola j'ai fait un ptit bout de code en plus fo juste copier coller pour que tu test ;-)
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Const Invert As Long = 1
Private Sub CmdGo_Click()
If CmdGo.Caption = "Commence" Then
CmdGo.Caption = "Arrete"
Timer1.Interval = 500
ElseIf CmdGo.Caption = "Arrete" Then
CmdGo.Caption = "Commence"
Timer1.Interval = 0
End If
End Sub
Private Sub Timer1_Timer()
'intervalle conseillé : 1000 mais j'ai mis a 500 je prefere ^^
Call FlashWindow(Me.hwnd, Invert)
End Sub
voila voila ;-)