VERSION 4.00
Begin VB.Form Flash 
   Caption         =   "Flashing a Form's Title Bar"
   ClientHeight    =   1830
   ClientLeft      =   2130
   ClientTop       =   4005
   ClientWidth     =   4680
   Height          =   2295
   Icon            =   "Blinker.frx":0000
   Left            =   2040
   LinkTopic       =   "Form1"
   ScaleHeight     =   1830
   ScaleWidth      =   4680
   Top             =   3630
   Width           =   4860
   Begin VB.CommandButton cmdFlash 
      Caption         =   "&Flash Window"
      Default         =   -1  'True
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1275
   End
   Begin VB.Timer tmrFlash 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   1560
      Top             =   120
   End
   Begin VB.Label Label1 
      Caption         =   "Note: By changing the Timer's interval, you can adjust the flashing speed."
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   720
      Width           =   4455
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "http://www.geocities.com/SiliconValley/Way/6445"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   195
      Left            =   240
      TabIndex        =   2
      Top             =   1560
      Width           =   4365
   End
   Begin VB.Label Label6 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Written for the VB Center Code Library"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Small Fonts"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   165
      Left            =   2220
      TabIndex        =   1
      Top             =   1320
      Width           =   2355
   End
End
Attribute VB_Name = "Flash"
Attribute VB_Creatable = False
Attribute VB_Exposed = False


' Written exclusively for VB Center by Marco Cordero.

Private Declare Function FlashWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal bInvert As Long) _
  As Long
Private Sub cmdFlash_Click()
    
' Flash the window
'FlashWindow frmFlash.hwnd, 1
  
' Toggle the timer's enabled state
tmrFlash.Enabled = Not tmrFlash.Enabled
  
' Set the button text

If tmrFlash.Enabled Then
  
    cmdFlash.Caption = "&Stop"
    
Else
  
    cmdFlash.Caption = "&Flash Window"
    FlashWindow Me.hwnd, 0
    
End If

End Sub
Private Sub tmrFlash_Timer()
  
' Flash the window
FlashWindow Me.hwnd, 1
  
End Sub