Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
创新互联公司专注于企业全网营销推广、网站重做改版、汉阳网站定制设计、自适应品牌网站建设、H5建站、购物商城网站建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为汉阳等各大城市提供网站开发制作服务。
Dim th As New Threading.Thread( _
Sub()
My.Computer.Audio.Play(New Byte() {}, AudioPlayMode.WaitToComplete)
End Sub)
th.Start()
End Sub
如果是WAV文件，这样就行了，不会同时播放
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：
先声明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具体还有很多常量，不一一列举，下面是播放一个wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。
当然我们也可以调用系统的声音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式调用系统启动时候的声音。
2． 调用媒体播放器控件
VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。
首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\爱不爱我.mp3"
.Play()
End With
End Sub
在.NET里，没有托管的音乐播放器，用API只能播放WAV格式，对于MP3等形式的音频文件，就要依赖于其他控件了，常用的就是
MediaPlayer。使用方法：
在工具箱上点右键，选择“选择项目(Choose Items)”，切到COM选项卡，找到 Windows Media Player， 勾选，确定
在t工具箱上，把刚才加入的MediaPlayer控件，拖放到窗体上
代码：
WindowsMediaPlayer1.URL = "mp3文件路径，支持网络路径"
WindowsMediaPlayer1.Ctlcontrols.play
基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止，直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。
'获取媒体的长度 00:00
Public Function GetMusicLengthString(FileName As String) As String
Dim RefStr As String * 80
mciSendString "status " FileName " length", RefStr, 80, 0
GetMusicLengthString = CStr(Format(Int(Val(RefStr) \ 1000 \ 60), "00") "：" Format(Val(RefStr) \ 1000 Mod 60, "00.") Val(RefStr) \ 100 Mod 10)
End Function
