vb 如让滚动条自行滚动

Form1添加一个垂直滚动条，一个Timer控件，粘贴以下代码到Form1的代码窗口：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If VScroll1.Value + VScroll1.Max / 100 <= VScroll1.Max Then
VScroll1.Value = VScroll1.Value + VScroll1.Max / 100
Else
VScroll1.Value = 0
End If
End Sub

无字天书！！！