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()