VB经验技巧（一）[4]

command2.caption="停止"

timer1.interval=500 '每0.5秒闪烁一次

timer1.enabled=false

private sub timer1_timer()

a& = flashwindow(me.hwnd, 1)

end sub

private sub command1_click()

timer1.enabled = true

end sub

private sub command2_click()

timer1.enabled = false

end sub

按f5运行程序。