Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.CodeDom.Compiler
Imports System.Reflection
Imports Microsoft.CSharp

' code converted to http://www.developerfusion.com/tools/convert/csharp-to-vb/
' not checked

Namespace FUDBuilder
	Public Partial Class frmMain
		Inherits Form
		Private compiler As New VBCodeProvider()

		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub frmMain_Load(sender As Object, e As EventArgs)
			' some sample code that shows a message box
			Dim code As String = "Imports System" & vbCrLf & "Imports System.Windows.Forms" & vbCrLf & "Namespace TestCode" & vbCrLf & "Class TestClass" & vbCrLf & "Public Sub Main()" & vbCrLf & "MessageBox.Show(""Hello, runtime compiled world!"")" & vbCrLf & "End Sub" & vbCrLf & "End Class" & vbCrLf & "End Namespace"
			Compile(code, "compiled.exe")
		End Sub

		Private Sub Compile(code As String, fileName As String)
			Dim cparams As New CompilerParameters()
			cparams.GenerateExecutable = True
			' we want to build an EXE
			cparams.GenerateInMemory = False
			' don't generate this in memory
			cparams.OutputAssembly = fileName
			' set the output file name
			cparams.ReferencedAssemblies.Add("System.dll")
			cparams.ReferencedAssemblies.Add("System.Windows.Forms.dll")
			cparams.CompilerOptions = "/optimize /target:winexe"
			' optimise and set the target to a WinForms application (change to /target:exe if you want console)
			' compile
			Dim result As CompilerResults = compiler.CompileAssemblyFromSource(cparams, code)
			' if there are errors in the code, tell the user
			For Each [error] As CompilerError In result.Errors
				MessageBox.Show(String.Format("Line {0}: Error {1} - {2}", [error].Line, [error].ErrorNumber, [error].ErrorText))
			Next
		End Sub
	End Class
End Namespace