Question

vb中图片框移动的速度逐渐加快

Answer 1

需要2个timer和1个picture控件
2个timer的interval属性设置一下，单位毫秒

Private sub form1_load()
timer1.enabled =true
timer2.enabled =fause
End sub

Private sub timer1_timer()
picture1.left=picture1.left +10
if picture1.left + picture1.width > form1.width then
timer2.enabled =true
timer1.enabled =fause
end sub

Private sub timer2_timer()
picture1.left=picture1.left -10
if picture1.left <0 then
timer1.enabled =true
timer2.enabled =fause
end sub