【实例说明】
    在运行多个程序或文件时，会出现多个窗体，那么当前操作的窗体是哪一个呢？这让用户难分辨。本例将使用闪烁的窗体标题栏，来提醒用户正在操作着的窗体是哪个窗体。运行程序，单击“开始演示”按钮，窗体标题栏开始闪烁，而且窗体文字不停变换；单击“停止演示”，窗体标题停止闪烁；单击“退出”按钮，退出程序。

【编程思路】
    用FlashWindow函数，可以使一个特定的窗口闪烁一次；在Timer事件过程中可以使窗口标题达到不停闪烁的效果。下面是FlashWindow函数声明及参数：
        函数声明：FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
        参数：hwnd参数，为窗口句柄；bInvert参数，为“0”，窗体标题不闪烁，为“1”，窗体标题栏闪烁。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体中放置三个Command控件和一个Timer控件。

    3.源程序  [素材源程序下载]


'声明API函数 : FlashWindow
Private Declare Function FlashWindow Lib "user32" _
        (ByVal hwnd As Long, _
        ByVal bInvert As Long) As Long

'开始演示
Private Sub Command1_Click()
        Me.Timer1.Enabled = True
End Sub

'停止演示
Private Sub Command2_Click()
        Me.Timer1.Enabled = False
End Sub

'退出
Private Sub Command3_Click()
        Unload Me
End Sub

Private Sub Timer1_Timer()
        Call FlashWindow(hwnd, 1)
        If Me.Caption = "闪烁标题栏" Then
                Me.Caption = "欢迎使用"
        Else
                Me.Caption = "闪烁标题栏"
        End If
End Sub