（ 7 ） 设窗体上有一个名称为 HScroIII 的水平滚动条 ， 要求当滚动块移动位置后 ， 能够在窗体上输出移动的距离 （ 即新位置与原位置的刻度值之差 ， 向右移动为正数 ， 向左移动为负数 ） 。 下面是可实现此功能的程序，请填写。

D．im [7] As Integer

Private Sub Form_Load()

pos=HScroIII.Value

E．nd Sub

Private Sub HScroIII_Change()

Print [8] -pos

pos=HScroIII.Value

E．nd Sub