res 没有实例化应该，你下个断点在Dim bytes(res.Length - 1) As Byte这句，然后看看res是不是为nothing
成都创新互联公司专注于普洱网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供普洱营销型网站建设，普洱网站制作、普洱网页设计、普洱网站官网定制、微信平台小程序开发服务，打造普洱网络公司原创品牌,更为您提供普洱网站排名全网营销落地服务。
代码是没有错的，但是其中关键是声音文件资源定义字串必须使用根命名空间，不能用程序集名称；还有就是声音文件必须选属性为嵌入资源。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
用API mciSendString可以同时播放多个声音，需要提供路径。
资源文件很麻烦，要用反射读取出来，再用IO写到磁盘路径。
你是做游戏把？软糖建议是不要使用资源文件，而使用本地文件。
用个BGM文件夹保存背景音乐，用SE文件夹保存音效（学习RPG Maker的做法）
API代码奉上，具体实现模块字数超过最大值，请下载附件
Imports System.Text
''' summary
''' 可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音频文件,*不支持OGG
''' /summary
Public Class 音频设备
'声明API函数: mciSendString
System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")
Public Shared Function mciSendString(strCommand As String,
strReturn As StringBuilder,
iReturnLength As Integer,
hwndCallback As Integer) As Integer
End Function
'声明API函数: mciGetErrorString
System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")
Public Shared Function mciGetErrorString(errCode As Integer,
errMsg As StringBuilder,
buflen As Integer) As Integer
调用方法
Public Class Form1
Dim 音频设备 As New 音频设备
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim 路径 = "F:\音乐文件名.mp3"
音频设备.打开("自定义名称1", 路径)
音频设备.播放("自定义名称1")
'音频设备.暂停("自定义名称1")
'音频设备.继续("自定义名称1")
'音频设备.关闭("自定义名称1")
End Sub
End Class
如满意，请采纳，还有不懂的请追问，谢谢。
