怎样让两个WebBrowser的滚动条同时滚动?(100分)

我在一个窗体内放了WebBrowser1和WebBrowser2,()用什么方法能使我滚动WebBrowser1的时候WebBrowser2也跟着同时滚动

放一个timer，检查WebBrowser1的滚动条位置（最好是相对比例），然后设置WebBrowser2
的滚动条位置就可以了。
大致的代码如下：
var Doc: IHTMLDocument2;e: IHTMLElement2; b: IHTMLElement; position: Extended;
读取：Doc := (webbrowser1.Document) as IHtmldocument2;
b := body.Get_body;
b.QueryInterface(IHTMLElement2, e);
position := e.get_scrollTop / e.get_scrollHeight;
设置：Doc := WebBrowser2.Document as IHTMLDocument2;
b := doc.Get_body;
b.QueryInterface(IHTMLElement2, e);
e.Set_scrollTop(Trunc(e.get_scrollHeight * position));

接受答案了.