利用vb滚动条控制timer控件的速度

我觉得大概的思路是获取滚动条的位置，然后改变time控件的Interval 属性的值，这样就能调整快慢了。

小弟学vb不久可能编的不是不好，请多多指点
Dim timestep As Integer
Private Sub Form_Load()
HScroll1.Max = 1000
timestep = HScroll1.Value + 100
Timer1.Interval = timestep

End Sub

Private Sub HScroll1_Change()
timestep = HScroll1.Value + 100
Timer1.Interval = timestep
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
End Sub

Private Sub HScroll1_Change()
HScroll1.Max = 500
HScroll1.Min = 0
Timer1.Interval =500- HScroll1.Value
End Sub本回答被网友采纳

用滚动条改变timer控件的Interval变量就好，