Dim cdp As CodeDomProvider
        cdp = New VBCodeProvider()
 
        ' Konfigurieren des Compilers.
        Dim cpParameters As CompilerParameters = _
        New CompilerParameters()
        Dim p As String = My.Application.Info.DirectoryPath
        p += "\"
        With cpParameters
            .GenerateExecutable = True
            .GenerateInMemory = False
            .OutputAssembly = p + cApplicationName
            .MainClass = cMainClassName
            .IncludeDebugInformation = False
            .CompilerOptions = "/optimize+"
 
            ' Verfügbare Assemblies hinzufügen.
            Dim asm As [Assembly]
            For Each asm In AppDomain.CurrentDomain.GetAssemblies()
                .ReferencedAssemblies.Add(asm.Location)
            Next asm
        End With
 
 
       'Kompilieren des Codes (im String: strCode) 
       Dim cr As CompilerResults = _
            cdp.CompileAssemblyFromSource( _
            cpParameters, strCode)
 
       If cr.Errors.Count = 0 Then
 
          'erstellte Anwendung starten
          Dim psi As ProcessStartInfo = _
          New ProcessStartInfo(p + cApplicationName)
          'Die Konsole soll nicht geöffnet werden
          psi.WindowStyle = ProcessWindowStyle.Hidden
 
          If Process.Start(psi) Is Nothing Then
             MessageBox.Show("Prozess kann nicht gestartet werden", ...")
      End If