I'll give you mine, editing this shortly.
Code
Private Sub CompileApp(ByVal filename As String)
Dim provider As CodeDomProvider = CodeDomProvider.CreateProvider("VisualBasic")
Dim parameters As New System.CodeDom.Compiler.CompilerParameters()
' Add reference
parameters.ReferencedAssemblies.Add("System.dll")
parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")
parameters.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
parameters.ReferencedAssemblies.Add("System.Drawing.dll")
'Compile in memory
parameters.GenerateExecutable = True
parameters.OutputAssembly = filename
parameters.CompilerOptions = "/target:winexe"
Dim strCode As String = "Your Code here"
Dim CompileResults As New System.CodeDom.Compiler.CompilerResults(Nothing)
CompileResults = provider.CompileAssemblyFromSource(parameters, strCode)
If CompileResults.Errors.HasErrors Then
' If an error occurs
MessageBox.Show("Error: Line>" & CompileResults.Errors(0).Line.ToString & ", " & _
CompileResults.Errors(0).ErrorText)
End If
End Sub
Found this, hope it helps. It's from a working example i got here laying...