access创建闪烁的通知窗体

为了突出信息的重要性，我们希望信息能高亮显示，甚至一直闪烁让更多的人注意消息通知。

可以通过计时器的时间间隔设置不同的闪烁颜色，以毫秒为单位使标签控件闪烁。

设置1秒钟改变一下颜色，颜色通过rnd函数随机生成新的RGB颜色

' 计时器事件，字体颜色更改
Private Sub Form_Timer()
   Me.TimerInterval = 1000
    Me.lab1.Visible = Not Me.lab1.Visible
    Me.lab1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub