***Form Flash***

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 123 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.