Private Declare Function FlashWindow Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) As Long
Option Explicit
Private Sub Command1_Click()
Timer1.Interval = 300
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i As Integer
FlashWindow Me.hwnd, 1
i = i + 1
If i > 4 Then
i = 0
Timer1.Enabled = False
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 86