فيجوال بيسك(كود نبض للفورم)

Option Explicit

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private mb_Flashing As Boolean

Private Sub Command1_Click()

mb_Flashing = Not mb_Flashing
Timer1.Enabled = mb_Flashing

If mb_Flashing = False Then
Call FlashWindow(Me.hwnd, 0)
End If

End Sub

Private Sub Timer1_Timer()

Call FlashWindow(Me.hwnd, 1)

End Sub

شكرا اكتير الك

يعطيك الف عافية ....

يسلم ايديك