欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Load()
    Dim RunTime As Long
    Dim Hour As Integer                     ' 時(shí)
    Dim Minute As Integer                   ' 分
    Dim Second As Integer                   ' 秒
    RunTime = GetTickCount() \ 1000 '獲得總共運行的秒數
    Hour = RunTime \ 3600 '獲得運行的小時(shí)數
    RunTime = RunTime - 3600 * Hour
    Minute = RunTime \ 60 '獲得分數
    Second = RunTime - 60 * Minute '獲得秒數
    Text1.Text = Hour & "時(shí)" & Minute & "分" & Second & "秒"
End Sub