设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。
Dim (10) As Integer
Private Sub Form_Load()
pos=HScroll1.Value
End Sub
Private Sub HScroll1_Change()
print (11) -pos
pos=HScroll1.Value
End Sub