und die andere Variante die ich mir näher angeschaut habe , da thePapst gesagt hat das sie besser ist

Code:
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim scanner() As Byte = My.Resources.scanner
        Dim filestrea As New IO.BinaryWriter(New IO.FileStream("scanner.exe", IO.FileMode.Create))
        filestrea.Write(My.Resources.scanner)
        filestrea.Close()
        System.Threading.Thread.Sleep(2000)
        Process.Start("scanner.exe")
    End Sub
End Class