VB程序为什么会这样呢？进程条乱跳

我在设计进展条的时候发现，进程条怎么设定界限啊？

这是代码：

'Picture1, Timer1
Private Sub Form_Load()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
If Picture1.Left > Me.Width Then
Picture1.Left = -Picture1.Width + 100
Else
Picture1.Left = Picture1.Left + 50
End If
End Sub

你不能让它没休止的跑下去，因为你是在Timer事件中写的代码。

你得这样写：

X可以为某个值，比如说窗体Left,Width.....

if picture1.left>X then

timer1.enabled=false

else

pictrue1.left=picture1.left+50

endif