I-Cloud程式攻略

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

'這個API函數會傳回由開機到現在的時間，以千份之一秒作單位，因此利用它就可以作出非常準確的計時了：

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

Private Const Interval = 1000 '一秒執行一次

Private Sub Command1_Click()
Dim ST As Long
Do
ST = GetTickCount

'**************************************
'這裡輸入要每次要做的工作，以下是例子
MsgBox "這是每一秒鐘執行的工作"
'**************************************

Do Until GetTickCount - ST >= Interval
Loop
Loop
End Sub