vb中想做一个点击滚动条旁边的文本里的数字加减，怎么做，例如文本里显示5，我点滚动条上箭头则加1，点下箭头则减1

vb中想做一个点击滚动条旁边的文本里的数字加减，怎么做，例如文本里显示5，我点滚动条上箭头则加1，点下箭头则减1

Private Sub Form_Load()
    Text1.Text = 5
    VScroll1.Max = 100
    VScroll1.Min = 1
    VScroll1.LargeChange = 1
    VScroll1.SmallChange = 1
    VScroll1.Value = 5
End Sub

Private Sub VScroll1_Change()
    Text1.Text = CStr(VScroll1.Value)
End Sub

应为Vscroll不好判断是点了上箭头还是下箭头，上面是最简单的

如果一定要判断是否是上箭头还是下箭头，可以判断VScroll1.Value的值来确定