有网友问到如何做动态时钟。论坛也已经有很多这样的示例了。主要使用的是计时器触发事件.

这里我们也来做一个，计时器间隔为1000.同时通过时间的递增，数字自增且颜色转换（红色和蓝色切换） 

    Access自动时钟及数字自增变色

    Access自动时钟及数字自增变色详阿细VBA代码：               

        Public a As Boolean      '  a为逻辑型，默认false

        Private Sub Form_Timer()

        a = Not a

             b1.Caption = Time()

             b2.Caption = CInt(b2.Caption) + 1

             b2.ForeColor = IIf(a = True, 255, 16711680)

        End Sub