Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. The OnTime event
Sub SetAlarm()
    Application.OnTime 0.625, "DisplayAlarm"
End Sub
Sub DisplayAlarm()
    Beep
    MsgBox "Wake up. It's time for your afternoon break!"
End Sub