Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        Process.Start("My.Resources.Anwendung1")
    End Sub

Public Class frmTest
    Dim WithEvents btn As New Button _
    With {.Parent = Me, .Text = "Click!"}
 
 
    Private Sub frmTest_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(200, 100)
        Me.TopMost = True
    End Sub
 
 
    Private Sub btn_Click(sender As Object, e As System.EventArgs) Handles _
      btn.Click
        MsgBox("Click ist betätigt worden")
    End Sub
 
End Class

Option Strict Off
 
'Assembly erstellen
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.Load(bytes)
'Eine Instanz des Startformulars 
Dim frmTest As Object = asm.CreateInstance("TestExe.frmTest")
'Startformular laden und zeigen 
frmTest.show()

EALA FREYA FRESENA

EALA FREYA FRESENA

 Dim bytes As Array
 bytes = loadFile("C:\TestExe.exe")

    Function loadFile(filename As String) As Byte()
        Dim fs As New FileStream(filename, FileMode.Open)
        Dim buffer(CInt(fs.Length)) As Byte
        fs.Read(buffer, 0, buffer.Length)
        fs.Close()
 
        Return buffer
    End Function 'loadFile