I once did the same thing! Here's the code:

Code:
--modtick.bas--
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1         '  play asynchronously
Const Tick = "tick.wav"

Sub Main()
Dim A
Dim OldSecond As Long

OldSecond = Second(Now)

Do
   If Second(Now) <> OldSecond Then
      OldSecond = Second(Now)
      PlayWav Tick, SND_ASYNC
   End If
   DoEvents
Loop

End Sub

Sub PlayWav(ByVal File As String, Args As Long)
Dim RET As Long

   RET = sndPlaySound(App.Path & "\" & File, Args)

End Sub
This reply probably has some bugs, but you get the idea.

[Edited by Sastraxi on 08-09-2000 at 02:17 PM]