'假設定時器為timer1,已經設置timer1的interval屬性為300000毫秒。
Private Sub Timer1_Timer()
MsgBox "五分鐘到了", vbOKOnly
End Sub
'上面的代碼5分鐘執行壹次。