Keep the rhythm with a timer

I want a short sound to be repeated continuously but I want this rhythmical, in time. I tried this with a timer control but that doesn't work like I want it (sometimes it goes fast than slow...). Does somebody know how I can play the sound with exactly the same time between every beat?
(PS: I'm using DirectSound to play the wav file)

Thanx

Use the Timer control to reduce the variance on the elapsed time by using a variable within the Timer to measure the actual time elapsed more accurately, i.e.

Code:

---

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NOWAIT = &H2000

Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    Static tTimer As Single
   
    If tTimer = 0 Then tTimer = Timer
    If Timer - tTimer >= 1 Then
        Call sndPlaySound("C:\Windows\Media\Start.wav", SND_ASYNC Or SND_NOWAIT)
        tTimer = Timer
    End If
End Sub

---

I tried Aaron Young's code but it seems to go fast and slow too. When I play a sound the program waits until the sound is completly finished, when I try to play the sound with DirectSound it isn't in time too.

And something else, when I play sounds with DirectSound I alway get a click between the sounds. Does anybody know how to fix that problem?

Help me please I realy need the code to do this!