Uses wodHttpDLX ActiveX Component

Dim WithEvents wodHttp As wodHttpDLXCom
Private Sub Form_Load()
    ' Initialize the component
    Set wodHttp = New wodHttpDLXCom
    
    ' Now, let's get the page
    wodHttp.Head "http://www.weonlydo.com"
    
End Sub

' When component is done executing, Done event is triggered. We can
' check response here
Private Sub wodHttp_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
    ' If no Error occured, ErrorCode will return 0
    If ErrorCode = 0 Then
        MsgBox wodHttp.Response.Headers.ToString
    Else
        MsgBox ErrorText
    End If
End Sub

Uses wodHttpDLX ActiveX Component

Dim WithEvents 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

    ' Now, let's get the page
    wodHttp.Head("http://www.weonlydo.com")
End Sub

' When component is done executing, Done event is triggered. We can
' check response here
Private Sub wodHttp_Done(ByVal ErrorCode As Integer, ByVal ErrorText As String) Handles wodHttp.Done
    ' If no Error occured, ErrorCode will return 0
    If ErrorCode = 0 Then
        MsgBox(wodHttp.Response.Headers.ToString())
    Else
        MsgBox(ErrorText)
    End If
End Sub

Uses wodHttpDLX ActiveX Component

private wodHttpDLXComLib.wodHttpDLXComClass wodHttp;
private void Form1_Load(object sender, EventArgs e)
{
    // Initialize the component and declare Done event
    wodHttp = new wodHttpDLXComLib.wodHttpDLXComClass();
    wodHttp.Done += new wodHttpDLXComLib._IwodHttpDLXComEvents_DoneEventHandler(wodHttp_Done);

    // Now, let's get the page
    wodHttp.Head("http://www.weonlydo.com");
}

// When component is done executing, Done event is triggered. We can
// check response here
void wodHttp_Done(int ErrorCode, string ErrorText)
{
    // If no Error occured, ErrorCode will return 0
    if(ErrorCode == 0)
    {
        MessageBox.Show(wodHttp.Response.Headers.ToString());
    }
    else
    {
        MessageBox.Show(ErrorText);
    }
}