189 8069 5689
代码是没有错的，但是其中关键是声音文件资源定义字串必须使用根命名空间，不能用程序集名称；还有就是声音文件必须选属性为嵌入资源。
创新互联专注于企业成都全网营销、网站重做改版、寿宁网站定制设计、自适应品牌网站建设、H5技术、商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为寿宁等各大城市提供网站开发制作服务。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
res 没有实例化应该，你下个断点在Dim bytes(res.Length - 1) As Byte这句，然后看看res是不是为nothing
My.Computer.Audio.Play("文件路径及文件名")就可以了，vb.net没有必要用API
下面是读取嵌入式文件：
Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("ring.wav")
Dim bytes(res.Length - 1) As Byte
res.Read(bytes, 0, bytes.Length)
My.Computer.Audio.Play(bytes, AudioPlayMode.Background)
'注意生成操作哪里要选择：嵌入的资源
不明白你为什么要二进制读取声音文件，VB可以直接调用API播放声音文件，不需要你二进制来读取声音文件的。
Private
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放的文件名(带路径)
'playCount 播放的次数
'JianGe 多次播放时,每次的时间间隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe 1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 16 + 1
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub
Private Sub Form_Click()
PlayWavFile "C:\aaa.wav", 1, 1000 '参数：播放文件，播放次数，播放间隔
End Sub
用WaveCN软件可以合并音频文件。在360软件宝库中可免费下载。
如果你在WORD中会用复制——粘贴的方法合并多篇文章，那你很容易学会合并音频文件。具体方法如下：
1、 打开第一个音频文件→解码（WAV文件不需要解码）→编辑→选择全部→编辑→复制。
2、 打开第二个音频文件→解码→编辑→定位（指明粘贴的位置）→编辑→粘贴。
3、 如果合并三个以上的文件，以此类推，多次执行复制——粘贴。
4、 单击“文件”菜单→另存为→给出文件名和文件格式→保存。
注意：如果搞不清当前文件是哪个，可单击“文件列表”菜单观察和选择。
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径