Timer

　　這個函數可以取得由午夜開始計算的秒數，由此我們可以寫出一個暫停的程式：

Private Sub Command1_Click()
    MsgBox "按確定暫停三秒"
    Sleep = Timer '寫入變數Sleep為現在的Timer時間
    Do Until Timer - Sleep >= 2 '當三秒後的Timer數值減去Sleep的數值大於或等於二時離開迴圈
    Loop
    MsgBox "暫停完畢"
End Sub