ＶＢ里播放音乐的问题．谢谢了

Question

　　下面是我在一个程序里关于播放两个声音的代码．出现的情况是，运行后只可以播放一次声音．无论播放那个都可以．但就只能播放一次，在点播放的时候就没有声音了．？？？？谢谢了．
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Database_muse1()
  mciSendString "open C:\Mb1Msg011.wav alias mc", 0, 0, 0
  mciSendString "play mc", 0, 0, 0
 
End Sub
Private Sub Database_muse2()
  mciSendString "open C:\Mb1Msg028.wav alias mc", 0, 0, 0
  mciSendString "play mc", 0, 0, 0
  
End SubPrivate Sub Command1_Click()
  Database_yinyue2
End SubPrivate Sub Command2_Click()
  Database_yinyue1
End Sub
谢谢了，急等．．．

Answer 1

公司机器没有声卡,我没有办法试,感觉是因为没有关闭,你添加关闭试下

Answer 2

检测当前是否播放完毕，然后重新播放。前几年做过这个，现在都忘了。lz在网上查一下！