100分请教：ScrollBar控件到头了，change事件无法触发，还有其他事件能得知用户在点击scrollbar吗？我想做一个循环滚动的scrollbar，滚动

[Liubin]

高人帮忙

[northwolves]

Private Sub Form_Load()
HScroll1.Max = 100
HScroll1.Min = 1
HScroll1.Value = 1
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub HScroll1_Change()
If HScroll1.Value = HScroll1.Max Then MsgBox "到头了！"
End Sub

Private Sub Timer1_Timer()
HScroll1.Value = HScroll1.Value Mod 100 + 1
End Sub

[Liubin]

到头了就不会触发任何事件吗？

[northwolves]

会出错： HScroll1.Value = HScroll1.Max+1

[yuwenshen]

I see

[Liubin]

可没有出错？只是点击箭头无响应