[VB] 현재 시간을 밀리초까지 구하기

Public Type SYSTEMTIME
    
    Year        As Integer
    Month       As Integer
    DayOfWeek   As Integer
    Day         As Integer
    Hour        As Integer
    Minute      As Integer
    Second      As Integer
    Millisecond As Integer

End Type

Public Declare Sub GetLocalTime Lib "kernel32" (pSYSTEMTIME As SYSTEMTIME)

Private Sub cmdTest_Click()

    Dim pSYSTEMTIME As SYSTEMTIME
        
    GetLocalTime pSYSTEMTIME
    
    MsgBox pSYSTEMTIME.Hour & ":" & pSYSTEMTIME.Minute & ":" & pSYSTEMTIME.Second & "." & pSYSTEMTIME.Millisecond

End Sub