vb.net怎么播放音乐文件

vb.net如何播放音乐文件
用什么控件
比如点“开始”按纽
事件里怎么写？
Public   Class   MusicForm
        Dim   names   As   String  
        Private   Sub   buadd_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   buadd.Click
                If   ofd.ShowDialog   =   Windows.Forms.DialogResult.OK   Then
                        names   =   ofd.FileName               //得到播放文件的路径
                End   If
        End   Sub

        Private   Sub   bustar_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   bustar.Click//开始按纽，此处如何让他播放音乐？
        ????????????
        End   Sub
End   Class

------解决方案--------------------
My.Computer.Audio.Play(FileName，AudioPlayMode.BackgroundLoop)
------解决方案--------------------
给你一个从书里摘出的代码，是章立民的《VB2005程序设计与界面开发秘诀》里面的：
Option Strict On
Public Class CH3_DemoForm030

Private Sub CH3_DemoForm049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cboAudioPlayMode.DataSource = System.Enum.GetNames(GetType(AudioPlayMode))
cboAudioPlayMode.SelectedIndex = 1
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
End Sub
Private Sub btnSelectWavFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectWavFile.Click
' 声明 OpenFileDialog 对象
Dim myOpenFileDialog As New OpenFileDialog

' 调用 OpenFileDialog 控件
With myOpenFileDialog
.CheckFileExists = True
.DefaultExt = "wav"
.Filter = _
"文件类型(*.WAV)|*.WAV|所有文件 (*.*)|*.*"
.Title = "请选择所要打开的文件"
.InitialDirectory = Environment.CurrentDirectory & "\Resources"
.Multiselect = False
.RestoreDirectory = True
End With

' 
If myOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.txtWavFileName.Text = myOpenFileDialog.FileName
End If
End Sub

Private Sub btnPlaySound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlaySound.Click
Try
' 决定音频的播放模式。
Dim myAudioPlayMode As AudioPlayMode = CType(System.Enum.Parse(GetType(AudioPlayMode), cboAudioPlayMode.SelectedItem.ToString), AudioPlayMode)
' 开始播放音频。
My.Computer.Audio.Play(txtWavFileName.Text, myAudioPlayMode)
Catch ex As Exception
MessageBox.Show(ex.Message)
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question)
End Try
End Sub

Private Sub btnStopPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStopPlay.Click
Try
My.Computer.Audio.Stop()
Catch ex As Exception
MessageBox.Show(ex.Message)
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question)
End Try
End Sub

End Class

自己琢磨吧，不难，试着做一个就会了