VB如果播放音乐解决办法

VB如果播放音乐
我用VB做一个游戏.   用户边玩游戏边听游戏的背景音乐.   我用的API
Private   Declare   Function   sndPlaySound   Lib   "winmm.dll "   Alias   "sndPlaySoundA "   (ByVal   lpszSoundName   As   String,   ByVal   uFlags   As   Long)   As   Long

Public   Function   sound(n   As   Integer)   As   Integer
Dim   x   As   Integer
Select   Case   n
        Case   1
                fil   =   "c:\sound\beep3.wav "
                x   =   sndPlaySound(0,   0)
                x   =   sndPlaySound(music(0).path,   &H1   Or   &H2)
                sound   =   x
        Case   2
                fil   =   "c:\sound\hit8.wav "
                x   =   sndPlaySound(0,   0)
                x   =   sndPlaySound(music(1).path,   &H1   Or   &H2)
                sound   =   x
        Case   3
                fil   =   "c:\sound\net7.wav "
                x   =   sndPlaySound(0,   0)
                x   =   sndPlaySound(music(2).path,   &H8   Or   &H2)
                sound   =   x
        Case   Else
                sound   =   0
        End   Select
End   Function

游戏一开始就调用   l   =   sound(3)
现在是可以播放音乐.但在播放音乐时候.其他的东西不能动了.只有等音乐播放完成后才能继续下一步动作.能否同时播发音乐同时玩游戏吗?   并且我是定义成循环播放模式.但实际上只播放一遍就完了

[解决办法]
直接用playsound函数
[解决办法]
学习
[解决办法]
那最好用多媒体控件，可以手动添加播放列表
[解决办法]
'循环播放音乐
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT= &H2
Const SND_NOSTOP = &H10

call sndPlaySound(SoundFile, SND_ASYNC Or SND_LOOP)

[解决办法]
sndPlaySound和PlaySound 函数只支持波形文件，如果你只是播放设定好的几首歌那就多用几次这个函数。