|
'This project needs a timer,Interval 1000
'In general section
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1
Private Sub Timer1_Timer()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Flash the window
FlashWindow Me.hwnd, Invert
End Sub
|
|