實際的閃爍是在Timer事件中完成的，Timer控件每次觸發，程序都會調用Timer事件。我們可以將Label控件的ForeColor屬性設置為黑色（可見）以及和BackColor屬性一致的顏色（文字和背景色一致，相當于不可見）。以下代碼可以完成檢驗ForeColor屬性的任務：　　

　　PRivateSubTimer1_Timer()　　

　　IfLabel1.ForeColor=Label1.BackColorThen

　　Label1.ForeColor=vbBlack

　　Else

　　Label1.ForeColor=Label1.BackColor

　　EndIf　　

　　EndSub　　

　　另外，你也可以讓文字采用不同的顏色，比如交替采用紅色和綠色：　　

　　PrivateSubTimer1_Timer()　　

　　IfLabel1.ForeColor=vbRedThen

　　Label1.ForeColor=vbGreen

　　Else

　　Label1.ForeColor=vbRed

　　EndIf　　

　　EndSub　　

　　當你停止文字閃爍時，還要確定文字的狀態是可見的并且采用了合適的色彩。要完成這個功能，你需要在停止閃爍時加入以下代碼設置ForeColor屬性：　　

　　Timer1.Enabled=False

　　Label1.ForeColor=vbBlack