Uses wodWebServer ActiveX component

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

    'Inside ServerName Property you can add name of the server that will be shown to clients when they connect to server.
    wodWebServer1.ServerName = "Your Server Name"
	    
    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

    'Inside ServerName Property you can add name of the server that will be shown to clients when they connect to server.
    wodWebServer1.ServerName = "Your Server Name"
	
    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();
	
    //Inside ServerName Property you can add name of the server that will be shown to clients when they connect to server.
    wodWebServer1.ServerName = "Your Server Name";

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