这个代码你复制好了以后，把模块的名称改为“mTimer”，类模块的名字改为“timer”，然后，窗体中的代码修改成这样：
Private WithEvents Timer1 As timer
Private Sub Form_Load()
Set Timer1 = New timer '这里改一下
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Debug.Print Now
End Sub
注意打开你的立即窗口，运行程序，就能看到效果了。我这里测试成功。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024