This code makes your form window flash like Aol’s Instant Messanger when it receives a message.
Original Author: Ben Doherty
Assumptions
make a timer and set the interval to 3000.
API Declarations
private declare function FlashWindow lib “user32” alias “FlashWindow” (ByVal hWnd as long, ByVal bInvert as long) as long
Code
Private sub timer1_timer()
dim nReturnValue as integer
nReturnValue = FlashWindow(form1.hWnd, true)
end sub