VB精确获得系统时间（毫秒级）

'  用API函数GetSystemTime或GetLocalTime返回的SYSTEMTIME结构的参数获得系统日期和精确到毫秒的系统时间?
'  GetSystemTime返回UTC时间，GetLocalTime返回当地时间。
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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 Timer1_Timer()
Dim s As String
Dim s1 As String
Dim sys     As SYSTEMTIME
GetLocalTime sys      '获得本地机器时间
'GetSystemTime sys    '获得机器的开机总时间
s = CStr(sys.wYear) + "," + CStr(sys.wMonth) + "," + CStr(sys.wDay)
Label1.Caption = s
s1 = CStr(sys.wHour) + ":" + CStr(sys.wMinute) + ":" + CStr(sys.wSecond) + ":" + CStr(sys.wMilliseconds)
Label2.Caption = s1
End Sub