怎样使程序的标题条闪烁

创建一个新的项目文件，添加一个模块文件，并填写以下代码:

公共声明函数FlashWindow _

Lib "user32" (ByVal hwnd As Long，_

ByVal bInvert一样长)一样长

向窗体添加两个按钮和一个计时器，并使用设置以下属性:

1.命令。caption = "开始"

2.命令标题= "停止"

定时器1.interval=500 '每0.5秒闪烁一次

定时器1 . enabled =假

私有子定时器1_Timer()

a& = FlashWindow(Me.hwnd，1)

末端接头

私有子命令1_Click()

定时器1。启用=真

末端接头

私有子命令2_Click()

定时器1。启用=假

End Sub