为窗体编写下列事件过程即可解决:'编写窗体打开事件过程Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 5000 '将窗体的刷新间隔设置为5秒End Sub'编写窗体计时器触发事件过程Private Sub Form_Timer() Me.Caption=Now()End Sub