اسم النموذج يومض

Public Declare Function FlashWindow _
Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long) As Long

'Put a timer and 2 commandbuttons on form1 with these properties:

command1.Caption = "Start"
command2.Caption = "Stop"
Timer1.Interval = 500 'flashes every 1/2 second
Timer1.Enabled = False

Code

Private Sub Timer1_Timer()
a& = FlashWindow(Me.hwnd, 1)
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
'Execute the app. (F5) and click the buttons