i am trying to make a sound file loaded from a resource file repeat until stopped using WINMM.DLL

Dim sndData() As Byte


Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _
Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

play the sound
sndData = LoadResData("hit", "SOUND")
sndPlaySound sndData(0), SND_LOOP

stop the sound
sndPlaySound ByVal 0, 0
how can this be done?