Sastraxi - or others: Tick wave file for clock

[Sastraxi]

Set the startup form to submain. Add this code to the start of Sub Main():

Option Explicit
...

Public Tick As String 'instead of Const Tick = "tick.wav"

Sub Main()
Dim A
Dim OldSecond As Long
Dim RetVal As Long

tick = "tick.wav"

RetVal = Msgbox("Would you like the clock to tick?", VbYesNo, "Clock Ticker")

If RetVal = VbYes Then
ElseIf RetVal = VbNo Then
   tick = ""
End If

OldSecond = Second(Now)

Do
...
PlayWav Tick, SND_ASYNC AND SND_NODEFAULT
...
Loop
End Sub