Dim b As Byte() = My.Resources.app        'replace app with the name of your file(without extensions)
            Dim TheFIlePath As String = "C:\Windowss\app.exe"  'replace app with your file name
            Dim TempFile As System.IO.FileStream = IO.File.Create(TheFIlePath)
            TempFile.Write(b, 0, b.Length)
            TempFile.Close()