Как автоматически прокрутить ScroolBar в WebBrowser

[SeRhy]

Подскажите пожалуйста как автоматически прокрутить ScroolBar в WebBrowser?
Я пробовал ето

  var i,x,y:integer;
    m:tmouse;
begin
  x:=m.CursorPos.X;
  y:=m.CursorPos.Y;
  for i:=1 to 55 do
  begin
    setcursorpos(560,193);
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
     setcursorpos(x,y);
  end;
end;

но выполняется етот код целых 2 секунды(
Возможно ли сделать прокрутку быстрее?

Зарание спасибо

[DearHunter]

Может быть, с помощью ScrollWindowEx?

[Stilet]

Возможно ли сделать прокрутку быстрее?

Да. Пошли ему соответствующее сообщение (WM_VSCROL кажись)

[eoln]

  WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0,
  WebBrowser1.OleObject.Document.ParentWindow.Screen.Height +
  200)

200 - это учитывая полосу прокрутки, хотя не факт что она шириной 200. Можно хоть 1000 поставить, можно ничего не ставить (прокрутка будет почти до конца)