Private Sub Form_Load() HScroll1.Max = 100 HScroll1.Min = 1 HScroll1.Value = 1 Timer1.Interval = 50 Timer1.Enabled = True End SubPrivate Sub HScroll1_Change() If HScroll1.Value = HScroll1.Max Then MsgBox "到头了!" End SubPrivate Sub Timer1_Timer() HScroll1.Value = HScroll1.Value Mod 100 + 1 End Sub
HScroll1.Max = 100
HScroll1.Min = 1
HScroll1.Value = 1
Timer1.Interval = 50
Timer1.Enabled = True
End SubPrivate Sub HScroll1_Change()
If HScroll1.Value = HScroll1.Max Then MsgBox "到头了!"
End SubPrivate Sub Timer1_Timer()
HScroll1.Value = HScroll1.Value Mod 100 + 1
End Sub