Как найти координаты тэгов через Document.getelementsbytagname vb6 webbrowser
В программе статистики есть WebBrowser, при загрузке страницы даёт статистику
А как мне добиться координат элементов ХТЛ относительно страницы и экрана?
К примеру хочу найти координаты всех линков или фреймов и тп. К примеру
Document.getelementsbytagname("a")(i)
Есть образец на ЯвеСкрипт, но хотелось бы родное внутреннее ВБ6 решение проблемы
function getElementPosition(elemId)
{
var elem = document.getElementById(elemId);
var w = elem.offsetWidth;
var h = elem.offsetHeight;
var l = 0;
var t = 0;

while (elem)
{
l += elem.offsetLeft;
t += elem.offsetTop;
elem = elem.offsetParent;
}
return {"left":l, "top":t, "width": w, "height":h};
}

'Пытаюсь конвертировать в ВБ6

Dim WithEvents doc As HTMLDocument
Dim elem As IHTMLElement
Set doc = ie.document
For x = 0 To doc.getElementsByTagName("a").length - 1
Set elem = doc.getElementsByTagName("a")(x)

'Хочу этот бред перевести как положено в while
'"-PParent=" & elem.offsetParent.offsetParent.tagName & "=" & elem.offsetParent.offsetParent.id & _
'"-3Parent=" & elem.offsetParent.offsetParent.offsetParent.tagNam e & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offset Parent.tagName & _
'"-4Parent=" & elem.offsetParent.offsetParent.offsetParent.offset Parent.id


'Но этот вариант не получается вылетает с ошибкой непонятной

While (TypeOf elem Is IHTMLElement)
parentall = parentall & "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
Next x

Помогите в этом участке кода пожалуйстя спасибо!