Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Program an event for 3

Sub main()     Application.OnTime TimeValue("3:00:00 pm"), "DisplayAlarm" End Sub Sub DisplayAlarm()     Beep     MsgBox "Wake up. It's time for your afternoon break!" End Sub