COM

bool ret = true;
CComPtr<IHTMLElementCollection> spForms;
long numForms = 0L;
    CComPtr<IDispatch> spDisp;

// get collection of forms within web page
HRESULT hr = spDoc->get_forms(&spForms.p);
if (FAILED(hr) || !spForms)
{
    ret = false;
}

if (ret)
{
    // get number of forms in collection
    HRESULT hr = spForms->get_length(&numForms);
    if (FAILED(hr))
    {
        ret = false;
    }
}

if (ret)
{
    // process each form
    for (int formNumber = 0; ret && (formNumber < numForms); formNumber++)
    {
        BSTR bstr;
        CString formName;
        CComPtr<IHTMLElementCollection> spElements;
        CComPtr<IHTMLFormElement> spFormElement;
        CComPtr<IHTMLElement> spElement;
        long numElements = 0L;

        // get next form
        CComVariant vIdx(0, VT_I4);
        HRESULT hr = spForms->item(CComVariant(formNumber), vIdx, &spDisp.p);
        if (FAILED(hr) || !spDisp)
        {
            ret = false;
        }

        if (ret)
        {
            // get form interface
            HRESULT hr = spDisp->QueryInterface(
                IID_IHTMLFormElement, (void**) &spFormElement.p);
            if (FAILED(hr) || !spFormElement)
            {
                ret = false;
            }
        }

        if (ret)
        {
            // get form name
            hr = spFormElement->get_name(&bstr);
            if (FAILED(hr))
            {
                ret = false;
            }
        }

        if (ret)
        {
            // need to call IHTMLElement::all() instead of IHTMLFormElement::item(),
            // otherwise will only get the controls and not all the elements in the form,
            // such as the labels
            HRESULT hr = spFormElement->QueryInterface(!!!
                IID_IHTMLElement, (void**) &spElement.p);
            if (FAILED(hr) || !spElement)
            {
                // FAILS HERE WITH hr == E_NOINTERFACE!!!
                ret = false;
            }

            ...... etc
        }
    }
}