如何找到webbrower控件打开网页中各个元素在网页中的坐标位置

用web打开网页后，怎么得到各个元素的坐标位置，应该从<body>元素开始向下找，用obj.offsetLeft 和 obj.offsetTop查找，但是我总是累加的不对，有知道的朋友可以给个代码不？一直找不到，先谢谢了附上一个delphl代码：
function ElementLeft(elem: OleVariant): integer;
var
 left, width: integer;
begin
 left := 0;
 width := elem.offsetWidth;
 repeat
   left := left + elem.offsetLeft;
   elem := elem.offsetParent;
 until elem.tagName = 'BODY';
 result := left;
end; 换成vb代码也可以