Imports System.Environment
Imports System.Diagnostics
Imports System.IO
Imports System.Text

Sub CreateApp()
  Dim Code As New StringBuilder
 
  Code.Append("Imports System.Console" & NewLine)
  Code.Append(NewLine)
  Code.Append("Class App" & NewLine)
  Code.Append("  Shared Sub Main()" & NewLine)
  Code.Append("    WriteLine(""Hallo Welt"")" & NewLine)
  Code.Append("    ReadLine" & NewLine)
  Code.Append("  End Sub" & NewLine)
  Code.Append("End Class")
 
  Dim CodeFile As New FileStream("C:\App.vb", FileMode.Create)
  Dim SW As New StreamWriter(CodeFile)
 
  SW.Write(Code.ToString)
  SW.Close()
 
  Dim P As Process
  P = Process.Start("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe", _
                    """C:\App.vb"" /out:""C:\App.exe""")
 
  P.WaitForExit()
  Process.Start("C:\App.exe")
End Sub