msgbox函数弹出的时候播放声音，关闭msgbox以后停止播放

msgbox函数弹出的时候播放声音，关闭msgbox以后停止播放，请问怎么才能在弹出msgbox的同时播放声音？

http://wenku.baidu.com/link?url=A2BNhqwByxaEwyGXRHoRKjqYzTZjhL4miBglL87phHbIpoHngNiRgYPTIK-LC6adLwxcmyRGQp1y0MXsJIJ30odHXPpMDLY6ZxwlTwzLPse

Msg = "Your message here." 
Title = "Your title"
FilePath = "E:/Music/melody.mp3"  '改成你的文件路径，也可以是URL

Set oPlayer = CreateObject("WMPlayer.OCX")
oPlayer.URL = FilePath
oPlayer.controls.play 

Selection = MsgBox(Msg,VbYesNo,Title)  '这里不管选什么，只要对话框关了就关闭音乐，你也可以在里面干点别的
If Selection = VbYes Then
    oPlayer.controls.stop
Else
    oPlayer.controls.stop
End If

这里假设你用的是VBS，VB我不熟，不过应该差不多