Question

VB编程实现用定时器控制水平滚动条的滑块，1秒走一步，20秒走完全程

Answer 1

滚动条啊？在窗体加载时，定义一下它对value属性即可达到你要的目的。如：
private
sub
form_load()
vscroll1.value
=
vscroll1.max
end
sub
有用你就给我加分！！

Answer 2

Timer1.Interval=1000
Private Sub Timer1_Timer()
If HScroll1.Value <= HScroll1.Max - HScroll1.Max / 20 Then HScroll1.Value = HScroll1.Value + HScroll1.Max / 20
End Sub

Answer 3

Private Sub Form_Load()
HScroll1.Max = 20
Timer1.Interval = 1000
HScroll1.Value = 0
End Sub

Private Sub Timer1_Timer()
HScroll1.Value = HScroll1.Value + 1
If HScroll1.Value = 20 Then Timer1.Enabled = False
End Sub