Uses wodHttpDLX ActiveX Component

Dim wodHttp As wodHttpDLXCom
Private Sub Form_Load()
    ' Initialize the component
    Set wodHttp = New wodHttpDLXCom
    
    On Error Resume Next
    
    ' This makes component to perform synchronously
    wodHttp.Blocking = True
    
    ' Set URL we want to GET
    wodHttp.URL = "http://www.weonlydo.com"
    
    ' Now, let's get headers
    wodHttp.Head
    
    ' If no error occured, display headers. Else, show us the error
    If (wodHttp.LastError = 0) Then
        MsgBox wodHttp.Response.Headers.ToString
    Else
        MsgBox wodHttp.LastErrorText
    End If
    
End Sub

Uses wodHttpDLX ActiveX Component

Dim wodHttp As wodHttpDLXComLib.wodHttpDLXCom
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Initialize the component
    wodHttp = New wodHttpDLXComLib.wodHttpDLXCom

    On Error Resume Next

    ' This makes component to perform synchronously
    wodHttp.Blocking = True

    ' Set URL we want to GET
    wodHttp.URL = "http://www.weonlydo.com"

    ' Now, let's get headers
    wodHttp.Head()

    ' If no error occured, display headers. Else, show us the error
    If (wodHttp.LastError = 0) Then
        MsgBox(wodHttp.Response.Headers.ToString())
    Else
        MsgBox(wodHttp.LastErrorText)
    End If
End Sub

Uses wodHttpDLX ActiveX Component

private wodHttpDLXComLib.wodHttpDLXComClass wodHttp;
private void Form1_Load(object sender, EventArgs e)
{
    // Initialize the component
    wodHttp = new wodHttpDLXComLib.wodHttpDLXComClass();

    // This makes component to perform synchronously
    wodHttp.Blocking = true;

    // Set URL we want to GET
    wodHttp.URL = "http://www.weonlydo.com";     

    // If no error occured, display headers. Else, show us the error
    try
    {
        // Now, let's get headers
        wodHttp.Head(wodHttp.URL);
        MessageBox.Show(wodHttp.Response.Headers.ToString());
    }
    catch (System.Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}