Here is a code using API Functions Flash Form five times to get the user's attention
Here is a code using API Functions Flash Form five times to get the user's attention
API Declarations
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Rate Here is a code using API Functions Flash Form five times to get the user's attention
(1(1 Vote))
' Flash Form1 five times to get the user's attention
Dim c As Integer, retval As Long ' counter variable & return value
For c = 1 To 10 ' flash on five times, off five times
retval = FlashWindow(Form1.hwnd, 1) ' toggle the look of the window
Sleep 500 ' halt execution for 500 milliseconds (1/2 minute)
Next c
retval = FlashWindow(Form1.hwnd, 0) ' make sure the window looks normal
Here is a code using API Functions Flash Form five times to get the user's attention Comments
No comments yet — be the first to post one!
Post a Comment