求一VB用WindowsMediaPlayer1播放程序

Private Sub Command1_Click() CommonDialog1.Filter = "mp3(*.mp3)|*.mp3" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then MsgBox "请选择一个mp3文件！" Else WindowsMediaPlayer1.URL = CommonDialog1.FileName WindowsMediaPlayer1.