Imports Microsoft.VisualBasic
Imports System.Reflection
Imports System.CodeDom
Imports System.CodeDom.Compiler

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s_code As String = TextBox1.Text

        ' parametry kompilatora
        Dim param As CompilerParameters = New CompilerParameters()
        param.GenerateExecutable = False
        param.GenerateInMemory = True

        Dim compiler As CodeDomProvider = New VBCodeProvider()

        ' do przechowania wynikow kompilacji
        Dim res As CompilerResults
        res = compiler.CompileAssemblyFromSource(param, s_code)

        If res.Errors.Count Then
            Label1.Text = res.Errors.Item(0).ToString()
            Return
        End If

        ' uruchomienie funkcji f
        Dim modul As Assembly = res.CompiledAssembly

        Dim klasa As Type = modul.GetType("X.A")
        Dim o As Object = Activator.CreateInstance(klasa)
        Dim metoda As MethodInfo = klasa.GetMethod("f")
        Label1.Text = metoda.Invoke(o, Nothing).ToString()

    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
End Class