vb VScrollbar 点击向上边按钮值增加 想破脑袋也弄不出来解决方案

vb VScrollbar 点击向上边按钮值增加 想破脑袋也弄不出来
我做了个textbox   存放当前的年
并且把当前的年变成VScrollbar的最大值
点VScrollbar向上按钮textbox   年度也增加，当然到最大值就不增加了
点VScrollbar向下按钮textbox   年度减少
但是做不出来，请高手赐教！

------解决方案--------------------
不是挺简单的吗，VS2003
------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "2007 "
VScrollBar1.Maximum = TextBox1.Text
VScrollBar1.Minimum = 1971 '不知为何，运行后最小值比设置的值大9
VScrollBar1.Value = 1971 '运行后最大值为2007，最小值为1980
End Sub

Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged
TextBox1.Text = VScrollBar1.Maximum + VScrollBar1.Minimum - VScrollBar1.Value
End Sub