vb循环播放音乐!

代码如下:
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
Musicf = Option1(0).Caption
Dim SoundFile As String, Result As Long
SoundFile = App.Path & "\" & "" & Trim(Musicf) & ".wav"
Result = sndPlaySound(SoundFile, 1)
End Sub
我想实现循环播放 
加了Const SND_LOOP = &H8 
把Result = sndPlaySound(SoundFile, 1)改成Result = sndPlaySound(SoundFile, SND_LOOP)
还是只播放一次
怎么让循环播放?谢谢
--------------------编程问答-------------------- 改用playsound函数，不用声明常量，直接
dim result
chdir app.path
result=playsound("....",0,&H8 or &H20000)
没测试，印象中，sndplaysound不支持同步，playsound支持同步，当遇到下一个可以播放的波形文件后，上一个文件自动终止 --------------------编程问答-------------------- Result = sndPlaySound(SoundFile, SND_ASYNC Or SND_LOOP) --------------------编程问答-------------------- Result = sndPlaySound(SoundFile, &H9)  //非同步重复播放
教材上这么说的,呵呵 --------------------编程问答-------------------- 和楼上的SND_ASYNC Or SND_LOOP 一样
SND_ASYNC Or SND_LOOP = &H1 Or &H8 ==&H9 --------------------编程问答-------------------- Result = sndPlaySound(SoundFile, SND_ASYNC Or SND_LOOP) --------------------编程问答-------------------- 我用Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
调用这个函数的时候怎么说子过程、函数没有定义呢？？？ --------------------编程问答-------------------- lz要干嘛？ --------------------编程问答-------------------- 以后需再关注，现在先帮你顶一下 --------------------编程问答-------------------- 使用 windowsplayer  控件 搜索一下循环播放代码。

补充：VB ,  多媒体