请教用滚动条htb_1做放大缩小的move事件如何写啊

请问用滚动条htb_1做放大缩小的move事件怎么写啊？
想用滚动条htb_1做一个放大、缩小的功能
往右拉的时候dw_1.object.datawindow.zoom+10
往左拉的时候dw_1.object.datawindow.zoom-10
请问move事件怎么写啊？谢谢

------解决方案--------------------
设置htb_1的pagesize和linesize为10。分别对应翻页和左右键增减的幅度。设置position为100
move事件：dw_1.Object.DataWindow.Zoom = scrollpos
pageleft、pageright、lineleft、lineright事件:dw_1.Object.DataWindow.Zoom = This.Position