[Visual Basic 5] Wav loop lukt niet

[Q]

ik heb het volgende stukje script

Private Sub command2_Click(Index As Integer)

SoundName$ = "c:\temp\A.wav"
   wflags% = SND_ASYNC Or SND_LOOP
   x% = sndPlaySound(SoundName$, wflags%)

End Sub

Maar mn a.wav doet helemaal geen loop wie weet hoe ik dat wel kan doen?

p.s. Ik heb bij mn module dit toegevoegd (API)

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