Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

To schedule an event relative to the current time - for example, 20 minutes from now

Sub Main()     Application.OnTime Now + TimeValue("00:20:00"), "DisplayAlarm" End Sub Sub DisplayAlarm()     Beep     MsgBox "Wake up. It's time for your afternoon break!" End Sub