'好像没有这样的控件吧，我自己写了段代码，能实现时间显示，还有，电脑的时间秒走的不是太准，每4、5秒一个循环，先快再慢，这个与电脑内部的计时有关，在网上可以搜到相关的内容，我写的代码用的计时方法和电脑的时钟不太一样，用的是GetTickCount，可以得到毫秒级的比较精确的时间，这样时钟走的比较准。Option ExplicitPrivate Declare Function GetTickCount Lib "Kernel32" () As LongPrivate Sub Command1_Click()
Dim i As Long, j As Long, k As Long, t As Long, s As Long,
