• Home
 · 
• Windows System Services
 · 
• Make any Window Flash, preatty kewl if you want to drag users attention.

Make any Window Flash, preatty kewl if you want to drag users attention.

Make any Window Flash, preatty kewl if you want to drag users attention.

API Declarations


Declare Function FlashWindow& Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long)
Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
#Else
Declare Function FlashWindow% Lib "user" (ByVal hwnd As Integer, ByVal bInvert As Integer)
Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any, ByVal lpWindowName As Any)
#End If



Rate Make any Window Flash, preatty kewl if you want to drag users attention.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Set the to what ever number of seconds.
'Enable it and let it FLASH!
'EX:
'Private Sub Timer1_Timer()
'  Call FlashWnd("Dial-Up")
'End Sub

Function FlashWnd(WindowName$)
Dim lFind As Long
Dim lFlash As Long

lFind = FindWindow(vbNullString, WindowName$) 'Find a Window you want to flash
lFlash = FlashWindow(lFind, 1) 'Flash the Window
End Function