请教各位大侠
如何判别vscroll控件点击的是向上的按钮还是向下的按钮．
　
如

if 按的是向上的按钮(此处用vscroll的什么属性控制)　then
　　　msgbox　＂数值减＂
else if 按的是向下的按钮 (此处用vscroll的什么属性控制)
msgbox "数值加"
end if

[此贴子已经被作者于2005-12-16 21:44:15编辑过]

Option Explicit

Dim oldValue As Integer

Private Sub Form_Load()
oldValue = VScroll1.Value
End Sub

Private Sub VScroll1_Change()

If VScroll1.Value > oldValue Then
Debug.Print "向下"
Else
Debug.Print "向上"
End If
oldValue = VScroll1.Value
End Sub