VB提示MP3报警音

    我想在command1里的内容执行完成后提示个报警音，表示已经执行完成，mp3play.ocx好象要有许可的,不是免费的控件,要花钱买,注册后才有全部的功能,还有,如何来用windowmediaplayer的控件来代替？
    请高手用代码指点下！非常感谢了！

---

用wav呗，报警音又不长

---

是啊 怎么才能实现啊 alifriend(波导终结者)给个你做过的代码看看 我想在 command1里的内容执行完成后提示个报警音

---

'部件里添加MCI32.ocx,最简单
Private Sub Form_Load()
    MMControl1.FileName = "E:\Music\bg.mp3"
    MMControl1.Command = "open" '打开设备
    MMControl1.Command = "Play"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "close" '退出时关闭MCI设备
End Sub

---

怎么与command1联系起呢 我是想在 command1里执行完成后提示个报警音，是不是这样就可以了：
VB code:
Private Sub Command1_Click()
......... '我的代码
MMControl1.FileName = "E:\Music\bg.mp3"
MMControl1.Command = "open" '打开设备
MMControl1.Command = "Play"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close" '退出时关闭MCI设备
End Sub

另外MCI