Imports System.IO
Module Module1
 
    Sub Main()
        Dim pfad As String = "D:\Test\Bass1.wav"
        SaveDatei(pfad)
        Console.ReadKey()
        My.Computer.Audio.Play(pfad, AudioPlayMode.WaitToComplete)
    End Sub
 
    Sub SaveDatei(pfad As String)
        Using fs As New FileStream(pfad, FileMode.Create), ms As _
          UnmanagedMemoryStream = My.Resources.bass
            Dim b(CInt(ms.Length - 1)) As Byte
            ms.Read(b, 0, b.Length)
            fs.Write(b, 0, b.Length)
        End Using
    End Sub
End Module
 
MfG GPM