Change Icons dynamically

[Amerigoware]

My application has a copy of another application.exe (my own creation) in the resources. With a button click, my application will create a new copy of the .exe in my.resources.

IO.File.WriteAllBytes(path, My.Resources.My.exe)

I am also obtaining an .ico from an image:

                Dim Ico As Icon
                Dim bmp As Bitmap = Image.FromFile(DisabledDir & itm.Text & "\icon.png")
                Ico = Icon.FromHandle(bmp.GetHicon)

The question is: Is it possible to change the icon of the .exe file either before or after creating the new file.

Thank you for your responses.