Imports System.Reflection

Imports System.CodeDom.Compiler

Imports Microsoft.CSharp



    

    Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ' *** Example form input has code in a text box 

        Dim lcCode As String = Me.txtCode.Text

        Dim loCompiler As ICodeCompiler = (New CSharpCodeProvider + CreateCompiler)

        Dim loParameters As CompilerParameters = New CompilerParameters

        ' *** Start by adding any referenced assemblies

        loParameters.ReferencedAssemblies.Add("System.dll")

        loParameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")

        ' *** Must create a fully functional assembly as a string

        lcCode = ("using System;"& vbCrLf& vbCrLf&"using System.IO;"& vbCrLf& vbCrLf&"using System.Windows.Forms;"& vbCrLf& vbCrLf&" "& vbCrLf& vbCrLf&"namespace MyNamespace {"& vbCrLf& vbCrLf&"p"& _ 

        "ublic class MyClass {"& vbCrLf& vbCrLf&" "& vbCrLf& vbCrLf&"public object DynamicCode(params object[] Parameters) {"& vbCrLf& vbCrLf  _

                    + (lcCode + "}   }    }"))

        ' *** Load the resulting assembly into memory

        loParameters.GenerateInMemory = false

        ' *** Now compile the whole thing

        Dim loCompiled As CompilerResults = loCompiler.CompileAssemblyFromSource(loParameters, lcCode)

        If loCompiled.Errors.HasErrors Then

            Dim lcErrorMsg As String = ""

            lcErrorMsg = (loCompiled.Errors.Count.ToString + " Errors:")

            Dim x As Integer = 0

            Do While (x < loCompiled.Errors.Count)

                lcErrorMsg = (lcErrorMsg + (""& vbCrLf&"Line: "  _

                            + (loCompiled.Errors(x).Line.ToString + (" - " + loCompiled.Errors(x).ErrorText))))

                x = (x + 1)

            Loop

            MessageBox.Show((lcErrorMsg + (""& vbCrLf& vbCrLf + lcCode)), "Compiler Demo")

            Return

        End If

        Dim loAssembly As Assembly = loCompiled.CompiledAssembly

        ' *** Retrieve an obj ref  generic type only

        Dim loObject As Object = loAssembly.CreateInstance("MyNamespace.MyClass")

        If (loObject = Nothing) Then

            MessageBox.Show("Couldn't load class.")

            Return

        End If

        Dim loCodeParms() As Object = New Object((1) - 1) {}

        loCodeParms(0) = "West Wind Technologies"

        Try 

            Dim loResult As Object = loObject.GetType.InvokeMember("DynamicCode", BindingFlags.InvokeMethod, Nothing, loObject, loCodeParms)

            Dim ltNow As DateTime = CType(loResult,DateTime)

            MessageBox.Show(("Method Call Result:"& vbCrLf& vbCrLf + loResult.ToString), "Compiler Demo")

        Catch loError As Exception

            MessageBox.Show(loError.Message, "Compiler Demo")

        End Try

    End Sub