MediaPlayer1

Private Sub CmdPlay_Click() '播放
    Text1.SetFocus
    On Error GoTo handler
    With CommonDialog1
        .InitDir = App.Path
        .Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Files(*.wav)|*.wav"
                                                    '支持多种文件格式
        .FileName = ""
        .ShowOpen
    End With
    MediaPlayer1.FileName = CommonDialog1.FileName
    Text1.Text = "正在播放" & CommonDialog1.FileName
    CmdPlay.Enabled = False
    CmdPause.Enabled = True
    CmdContinue.Enabled = False
    CmdStop.Enabled = True
    Exit Sub
handler:
    MsgBox "你没有选择媒体文件！", vbOKOnly, "错误信息"
End SubMediaPlayer1.FileName = CommonDialog1.FileName这句老提示未找到方法或数据成员，请各位帮我看看