当转动鼠标的波轮， 怎样才能让表单的Scrollbar上下移动?

[David_526]

1、表单上有Image控件，Picture赋予了一个很大的图形
2、表单已经设置了ScrollBar=3（既水平又垂直）
3、Image的MouseWheel：
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
ThisForm.Scrolled(2)
完成以上之后，运行程序，拨动鼠标滚轮，就是不能实现页面的滚动。
请各大侠及十豆三大师给予指导，多谢！

[都市夜猫]

Scrolled 是事件而非方法 改用 SetViewPort 方法