Dim tempdir As String = My.Computer.FileSystem.SpecialDirectories.Temp
 
        Dim fstream As IO.FileStream = _
        IO.File.Create(tempdir + "\MySound.MP3", _
        My.Resources.no_knowings_short.Length, IO.FileOptions.SequentialScan)
        fstream.Write(My.Resources.no_knowings_short, 0, _
        My.Resources.no_knowings_short.Length)
        fstream.Close()