第一种：利用 mmcontrol控件
实例：

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub

Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "play"
End Sub

Private Sub Slider1_Scroll()
MMControl1.To = Slider1.Value
MMControl1.Command = "seek"
MMControl1.Command = "play"
End Sub

Private Sub 播放_Click()
MMControl1.Command = "play"
End Sub

Private Sub 打开_Click()
Dim temp As Integer
Dim Stringtext As String
Dim MidX, MidY As Double
CommonDialog1.FileName = " "
CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(vcd *.dat)|*.dat|(midi *.mid)|*.mid"
CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = "打开媒体"
CommonDialog1.Action = 1
MMControl1.Command = "close"
If CommonDialog1.FileName = "" Then
temp = MsgBox("没有文件打开", 37, "检查")
ElseIf CommonDialog1.FilterIndex = 1 Then
MMControl1.DeviceType = "avivideo"
MMControl1.TimeFormat = 3
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Slider1.Min = 0
Slider1.Max = MMControl1.Length
ElseIf CommonDialog1.FilterIndex = 2 Then
MMControl1.DeviceType = "waveaudio"
MMControl1.TimeFormat = 1
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Slider1.Min = 0
Slider1.Max = MMControl1.Length
ElseIf CommonDialog1.FilterIndex = 3 Then
MMControl1.DeviceType = "mpegvedio"
MMControl1.TimeFormat = 3
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Slider1.Min = 0
Slider1.Max = MMControl1.Length
ElseIf CommonDialog1.FilterIndex = 4 Then
MMControl1.DeviceType = "sequencer"
MMControl1.TimeFormat = 1
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Slider1.Min = 0
Slider1.Max = MMControl1.Length
End If
End Sub
Public Sub Form1_Unload(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub

Public Sub MMControl1_StatusUpdate()
Select Case CommonDialog1.FilterIndex
Case 1
StatusBar1.SimpleText = "当前桢数" & MMControl1.Position
Slider1.Value = MMControl1.Position
Case 2
StatusBar1.SimpleText = "声音长度" & MMControl1.Position
Case 3
Slider1.Value = MMControl1.Position
StatusBar1.SimpleText = "当前桢数" & MMControl1.Position
Case 4
StatusBar1.SimpleText = "MIDI长度" & MMControl1.Position
Slider1.Value = MMControl1.Position
End Select
If MMControl1.Position = MMControl1.Length Then
MMControl1.Command = "prev"
End If
End Sub

Private Sub 退出_Click()
Unload Form1
End Sub

第二种：利用网络中的控件mp3player.ocx
实例：
Private Sub Command1_Click()
Form1.CommonDialog1.FileName = " "
Form1.CommonDialog1.Filter = "(*.mp3)|*.mp3"
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim err As Long
err = Mp3Play1.Open(Form1.CommonDialog1.FileName, "")
i = Mp3Play1.Authorize(LightBringer, 1441658209)
Form1.Text1.Text = i
If i = -5 Then
Mp3Play1.Play
End If
End Sub

Private Sub Form_Load()

Mp3Play1.Visible = False

End Sub
第三种：利用api函数
实例：
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub close_Click()
t = mciSendString("close " + CommonDialog1.FileName, 0&, 0, 0)
End Sub

Private Sub close1_Click()
t = mciSendString("close " + CommonDialog1.FileName, 0&, 0, 0)
End Sub

Private Sub Form_Load()
stopplay.Enabled = False
play.Enabled = False
pause.Enabled = False
close1.Enabled = False
End Sub

Private Sub open_Click()
CommonDialog1.FileName = " "
CommonDialog1.Filter = "音乐文件|*.mp3;*.wav;*.mid"
CommonDialog1.Action = 1
play.Enabled = True
End Sub

Private Sub pause_Click()
pause.Enabled = False
t = mciSendString("pause " + CommonDialog1.FileName, 0&, 0, 0)
pause.Enabled = True
End Sub

Private Sub play_Click()
Dim t As Long
t = mciSendString("OPEN " + CommonDialog1.FileName, 0&, 0, 0)
t = mciSendString("PLAY " + CommonDialog1.FileName, 0&, 0, 0)
play.Enabled = False
stopplay.Enabled = True
pause.Enabled = True
close1.Enabled = True
End Sub

Private Sub stopplay_Click()
t = mciSendString("stop " + CommonDialog1.FileName, 0&, 0, 0)
stopplay.Enabled = False
End Sub
第四种：利用realaudio控件
Private Sub Form_Load()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.RealAudio1.Visible = False
End Sub

Private Sub play_Click()
Form1.RealAudio1.SetSource (Form1.CommonDialog1.FileName)
If Form1.RealAudio1.CanPlay Then
Form1.RealAudio1.DoPlay
End If
End Sub

Private Sub run_Click()
Form1.CommonDialog1.FileName = " "
Form1.CommonDialog1.Filter = "*.rm,*.ram,*.avi,*.dat,*.dat,*.mpg,*.mov"
Form1.CommonDialog1.ShowOpen
Form1.Text1.Text = Form1.CommonDialog1.FileName
End Sub

Private Sub stop_Click()
If Form1.RealAudio1.CanStop Then
Form1.RealAudio1.DoStop
End If
End Sub
[size=18][/size][color=green][/color]

示例：
Private Sub Command1_Click()
Form1.CommonDialog1.FileName = " "
Form1.CommonDialog1.Filter = "(*.mp3)|*.mp3"
Form1.CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
Form1.Player1.openPlayer (Form1.CommonDialog1.FileName)
End Sub

Private Sub Form_Load()
Form1.Player1.Visible = False
End Sub