实际的闪烁是在Timer事件中完成的，Timer控件每次触发，程序都会调用Timer事件。我们可以将Label控件的ForeColor属性设置为黑色（可见）以及和BackColor属性一致的颜色（文字和背景色一致，相当于不可见）。以下代码可以完成检验ForeColor属性的任务：
PrivateSubTimer1_Timer()
IfLabel1.ForeColor=Label1.BackColorThen
Label1.ForeColor=vbBlack
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）Else
Label1.ForeColor=Label1.BackColor
EndIf
EndSub
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）另外，你也可以让文字采用不同的颜色，比如交替采用红色和绿色：
PrivateSubTimer1_Timer()
IfLabel1.ForeColor=vbRedThen
Label1.ForeColor=vbGreen
Else
Label1.ForeColor=vbRed
EndIf
EndSub
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）当你停止文字闪烁时，还要确定文字的状态是可见的并且采用了合适的色彩。要完成这个功能，你需要在停止闪烁时加入以下代码设置ForeColor属性：
Timer1.Enabled=False
Label1.ForeColor=vbBlack
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）->
