Public Function CompileCode(ByVal provider As CodeDomProvider) As _
          CompilerResults
            ' Obtain an ICodeCompiler from a CodeDomProvider class.        
            Dim compiler As ICodeCompiler = provider.CreateCompiler()
            ' Configure a CompilerParameters that links System.dll and 
            ' produces a file name based on the specified source file name.
            Dim cp As New CompilerParameters(New String() {"System.dll", _
              "System.Windows.Forms.dll"}, "cTest.exe", False)
            ' Indicate that an executable rather than a .dll should be 
            ' generated.
            cp.GenerateExecutable = True
            ' Invoke compilation.
            Dim cr As CompilerResults = compiler.CompileAssemblyFromSource(cp, _
              SourceString)
            ' Return the results of compilation.
            Return cr
        End Function