Uses wodWebServer ActiveX component

Dim WithEvents wodWebServer1 As wodWebServerCom
Private Sub Form_Load()
    Set wodWebServer1 = New wodWebServerCom

    'When compression is enabled sending responses is speedup since returned data may be up to 80% smaller than original data.
    'wodWebServer will compress outgoing data using ZLIB or GZIP algorithms.
    wodWebServer1.Compression = True
	    
    wodWebServer1.DocumentRoot = App.Path
    wodWebServer1.Start 'Start a web server
End Sub 

Uses wodWebServer.NET component

Dim WithEvents wodWebServer1 As WeOnlyDo.Server.WebServer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodWebServer1 = New WeOnlyDo.Server.WebServer

    'When compression is enabled sending responses is speedup since returned data may be up to 90% smaller than original data.
    'wodWebServer will compress outgoing data using deflate compression.
    wodWebServer1.Compression = True
	
    wodWebServer1.DefaultPage = "index.html" 'Specify default page file
    wodWebServer1.DocumentRoot = "C:\Web"
    wodWebServer1.Start() 'Start a web server
End Sub

Uses wodWebServer.NET Component

WeOnlyDo.Server.WebServer wodWebServer1;
private void Form1_Load(object sender, EventArgs e)
{
    wodWebServer1 = new WeOnlyDo.Server.WebServer();

    //When compression is enabled sending responses is speedup since returned data may be up to 90% smaller than original data.
    //wodWebServer will compress outgoing data using deflate compression.
    wodWebServer1.Compression = true;

    wodWebServer1.DefaultPage = "index.html"; //Specify default page file
    wodWebServer1.DocumentRoot = "C:\\Web";
    wodWebServer1.Start(); //Start a web server
}