'Dim read As Resources.ResourceManager = My.Resources.Resource1.ResourceManager()
Dim read As Resources.ResourceManager =My.Resources.ResourceManager '‘VS2013’
Dim Bytes As Byte()
Bytes = DirectCast(read.GetObject("Pro"), Byte()) 'filetype必须是binary
Dim file As New IO.FileInfo(Application.StartupPath & "\Pro.mp3")‘绝对或相对文件路径。
Using sw As IO.Stream = file.Create()
sw.Write(Bytes, 0, Bytes.Length)
End Using