Scholieren.com forum - [Visual Basic 5] Wav loop lukt niet

ik heb het volgende stukje script

Code:

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)

Code:

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