VB6.0显示系统时间精确到毫秒源程序

1、使用了Windows API函数GetLocalTime，它用于获取当前的系统时间并将其存储在指定的SYSTEMTIME结构中。

2、使用了结构体（系统时间SYSTEMTIME）

3、使用了文本显示控件（Text9）

源程序如下：

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) '声明Windows API函数GetLocalTime，它用于获取当前的系统时间并将其存储在指定的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 Function CurrentTime(Number_j As Integer) As String  '显示时间，精确到毫秒
    Dim SYSTEMTIME As SYSTEMTIME
    GetLocalTime SYSTEMTIME
    CurrentTime = SYSTEMTIME.wYear & "/" & SYSTEMTIME.wMonth & "/" & SYSTEMTIME.wDay & " " & SYSTEMTIME.wHour & ":"