嗯,timer精度比较低,大概是10ms
需要高精度计时的话用这个api:QueryPerformanceCounter,它的精度大概是10μs

Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = Format(Time, "hh:mm:ss")
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format(Time, "hh:mm:ss")
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = Format(Time, "hh:mm:ss")
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format(Time, "hh:mm:ss")
End Sub

一秒钟刷一次时间 这个时间是系统现在的时间 跟TIMER的精度没什么关系