游戏音乐播放不了，MMControl控件,该怎么解决

游戏音乐播放不了，MMControl控件
我写了一个小游戏的代码，现在就剩一些小音乐
我是利用MMControl控件实现的
                Form1.MMControl1.FileName = App.Path & "sounds\GameStart.wav"
                Form1.MMControl1.Command = "open"
                Form1.MMControl1.Command = "play"
可是无法播出声音，这是为什么呢
------解决思路----------------------
前面来一句
Form1.MMControl1.DeviceType = "waveaudio"

------解决思路----------------------
用API函数比MMControl控件要好
------解决思路----------------------
'注意一下 App.Path的使用
'在主目录区下 app.path 包含 \, 而其它非主目录区的app.path 并不含 \
'你的代码如不是在主目录区下的话 ，应该改为
Form1.MMControl1.FileName = App.Path & "\sounds\GameStart.wav"


Dim AppDisk$
Private Sub Command1_Click()
   AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   Form1.MMControl1.FileName = AppDisk & "sounds\GameStart.wav"
   Form1.MMControl1.Command = "open"
   Form1.MMControl1.Command = "play"
End Sub