OK, I think I understand the issue now....if the chimes are playing, then the ticks wont also play.
So, here is some new code:
Sub Globals
AlsoTicks As Boolean
End Sub
Sub tmr1000ms_Tick 'this happens every 1 second
If IsMediaPlaying = False Or AlsoTicks = True Then
If TimeToPlayQuarterlyChime And AlsoTicks = False Then
PlayChimeSound
AlsoTicks = True
Else
PlayTickSound
End If
End If
End Sub
Sub ChimesPlayer_Complete
AlsoTicks = False
End Sub
What this code does is when the chimes are playing, it sets the "AlsoTicks" Boolean var to true so that the routine will continue to ALSO play the ticks every second.
And when the ChimesPlayer_Complete event happens (when the chimes is done playing), it clears this flag so that it will just play ticks.
The only potential problem is that if the user plays audio form another app while the longer chimes is playing, then your app will not know to shut up until the chimes is done playing.