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