在各种Mp3播放器中，WINNAP无疑是最受大众欢迎的，虽然下面介绍的Mp3播放器不如它专业，但是播放效果绝对不差！Mp3播放器示例程序主要使用MediePlayer控件来完成播放功能。
    新建一个Standard EXE工程,按Ctrl+T,弹出Components窗口，选择Microsoft Common Dialog Control6.0 和Windows Media Player两项，点击“确定”，这时工具箱中出现CommonDialog控件  和 MediePlayer控件。
    在窗体上添加一个CommonDialog控件；一个MediePlayer控件；四个CommandButton控件，从左至右分别为Cmdplay(播放)、Cmdpause(暂停)、Cmdcontinue(继续)、Cmdstop(停止)。

程序代码如下：
  Option Explicit

初始化程序
Private Sub Form_Load()
MediaPlayer1.Visible = False
cmdContinue.Enabled = False
cmdpause.Enabled = False
cmdstop.Enabled = False
End Sub

Private Sub cmdPlay_Click()
出现错误时跳到下一语句
On Error Resume Next
With CommonDialog1 显示打开文件窗口
.CancelError = True
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"
.Flags = cdlOFNFileMustExist
.FileName = ""
.ShowOpen
End With
If Err = cdlCancel Then Exit Sub
MediaPlayer1.FileName = CommonDialog1.FileName
MediaPlayer1.Play
Me.Caption = " 现在正在播放：" & CommonDialog1.FileName
cmdplay.Enabled = False
cmdpause.Enabled = True
cmdContinue.Enabled = False
cmdstop.Enabled = True
End Sub

暂停播放
Private Sub cmdPause_Click()
MediaPlayer1.Pause
cmdpause.Enabled = False
cmdContinue.Enabled = True
End Sub

继续播放
Private Sub cmdContinue_Click()
MediaPlayer1.Play
cmdplay.Enabled = False
cmdpause.Enabled = True
cmdContinue.Enabled = False
End Sub

停止播放
Private Sub cmdStop_Click()
MediaPlayer1.Stop
cmdplay.Enabled = True
cmdpause.Enabled = False
cmdContinue.Enabled = False
cmdstop.Enabled = False
End Sub

    按F5运行程序，带上耳机，点击“打开”按钮，选择一个Mp3文件(也可以播放Mid，Wav，M3u格式的文件)，就可以听到悦耳的音乐了。