VS 2010 Embedded Web Server that supports ASP.Net 4

Imports System.Net
Imports Mono.WebServer
 
Public Class myserv
    Dim port As Integer = 80
    Dim path As String = "E:\Clients\Chuck\Website\Photoviewer\Photoviewer\"
    Dim websource As XSPWebSource = New XSPWebSource(IPAddress.Any, port)
    Dim WebAppServer As ApplicationServer = New Mono.WebServer.ApplicationServer(websource)
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
 
        'Dim cmdLine As String = port & ":/:" & path
 
        WebAppServer.AddApplication(vbNull, 80, "/", path)
        'websource.SetListenAddress(80)
        WebAppServer.Start(True)
 
        MsgBox("Servers Started")
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        WebAppServer.Stop()
        MsgBox("Servers Stopped")
    End Sub
 
    Private Sub myserv_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
End Class