求VB高手怎样用VB做一个毫秒级时钟?

建一个Timer1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim t As SYSTEMTIME
GetLocalTime t
Cls
Print DateSerial(t.wYear, t.wMonth, t.wDay) & " " & TimeSerial(t.wHour, t.wMinute, t.wSecond) & "." & t.wMilliseconds
End Sub

你用的什么版本？ VB自带的时钟就是毫秒级的，1秒等于1000毫秒

VB使用的是计算机的内置时钟,它每秒产生18次.
虽然是毫秒级,但是它的精确度只有1000/18(55.56)毫秒,你设置数字再低也都没有用(虽然你可以设置).
所以,如果你要达到真正的毫秒级,也就是精确到毫秒,是不可能的

时间间隔百分之2秒左右。

Option Explicit
Private Declare Sub Sleep