add references to system.reflection.emit.assemblybuilder

Imports System
Imports System.CodeDom.Compiler
Imports System.Collections.Generic
Imports System.Reflection

Imports Microsoft.VisualBasic

Namespace E
    Public Interface IDemo
        Sub DoIt()
    End Interface
    Public Class Program
        Public Shared Sub Exec(src As String, typnam As String)
            Dim comp As CodeDomProvider = New VBCodeProvider()
            Dim param As New CompilerParameters()
            param.GenerateInMemory = True
            param.ReferencedAssemblies.Add("System.dll")
            param.ReferencedAssemblies.Add("System.Core.dll")
            param.ReferencedAssemblies.Add(Assembly.GetExecutingAssembly().Location)
            Dim res As CompilerResults = comp.CompileAssemblyFromSource(param, src)
            If res.Errors.Count > 0 Then
                Console.WriteLine(src)
                For Each ce As CompilerError In res.Errors
                    Console.WriteLine(ce)
                Next
            End If
            Dim asm As Assembly = res.CompiledAssembly
            Dim o As IDemo = DirectCast(asm.CreateInstance(typnam), IDemo)
            o.DoIt()
        End Sub
        Public Shared Sub Main(args As String())
            Dim c1 As String = "Imports System" & vbCrLf & _
                              vbCrLf & _
                              "Imports E" & vbCrLf & _
                              vbCrLf & _
                              "Namespace Demo" & vbCrLf & _
                              "    Public Class C1" & vbCrLf & _
                              "    Implements IDemo" & vbCrLf & _
                              "        Public Sub DoIt() Implements IDemo.DoIt" & VbCrLf & _
                              "            Console.WriteLine(""Hello from C1"")" & VbCrLf & _
                              "        End Sub" & VbCrLf & _
                              "    End Class" & VbCrLf & _
                              "End Namespace" & VbCrLf
            Dim c2 As String = "Imports System" & vbCrLf & _
                              vbCrLf & _
                              "Imports E" & vbCrLf & _
                              vbCrLf & _
                              "Namespace Demo" & vbCrLf & _
                              "    Public Class C2" & vbCrLf & _
                              "    Implements IDemo" & vbCrLf & _
                              "        Public Sub DoIt() Implements IDemo.DoIt" & VbCrLf & _
                              "            Console.WriteLine(""Hello from C2"")" & VbCrLf & _
                              "        End Sub" & VbCrLf & _
                              "    End Class" & VbCrLf & _
                              "End Namespace" & VbCrLf
            Exec(c1, "Demo.C1")
            Exec(c2, "Demo.C2")
            Console.ReadKey()
        End Sub
    End Class
End Namespace