<pre style=\"background:#F4F4F4;\"><!-- WARNING: This tag is required to maintain spacing! --><font color=\"#008800\">\'Coded by Kristopher Wilson \'http://www.mindlessdrone.com/ \'
[email protected] \' \'Create a form with two command buttons and drop \'in the following code to see how to use the FlashWindow \'API </font> <font color=\"#000088\">Private Declare Function </font>FlashWindowEx <font color=\"#000088\">Lib </font>\"user32\" _ (pfwi <font color=\"#000088\">As </font>FLASHWINFO) <font color=\"#000088\">As Boolean </font> <font color=\"#000088\">Private </font>Type FLASHWINFO cbSize <font color=\"#000088\">As Long </font> hwnd <font color=\"#000088\">As Long </font> dwFlags <font color=\"#000088\">As Long </font> uCount <font color=\"#000088\">As Long </font> dwTimeout <font color=\"#000088\">As Long End </font>Type <font color=\"#000088\">Const </font>FLASHW_STOP = 0 <font color=\"#000088\">Const </font>FLASHW_CAPTION = &H1 <font color=\"#000088\">Const </font>FLASHW_TRAY = &H2 <font color=\"#000088\">Const </font>FLASHW_ALL = (FLASHW_CAPTION <font color=\"#000088\">Or </font>FLASHW_TRAY) <font color=\"#000088\">Const </font>FLASHW_TIMER = &H4 <font color=\"#000088\">Const </font>FLASHW_TIMERNOFG = &HC <font color=\"#000088\">Dim </font>flshWindow <font color=\"#000088\">As </font>FLASHWINFO <font color=\"#000088\">Private Sub </font>Command1_Click() <font color=\"#000088\">With </font>flshWindow .cbSize = Len(flshWindow) .dwFlags = FLASHW_ALL <font color=\"#000088\">Or </font>FLASHW_TIMER .dwTimeout = 0 .hwnd = Me.hwnd .uCount = 0 <font color=\"#000088\">End With </font> FlashWindowEx flshWindow <font color=\"#000088\">End Sub </font> <font color=\"#000088\">Private Sub </font>Command2_Click() flshWindow.dwFlags = FLASHW_STOP FlashWindowEx flshWindow <font color=\"#000088\">End Sub </font></pre>