Public Class drivecar Private Sub go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go.Click
While carpic.Width < 762
carpic.Width = carpic.Width + 20
If carpic.Width < 762 Then
MessageBox.Show("距离终点你还有" & 762 - carpic.Width & "米")
Else
MessageBox.Show("已到达终点")
Me.Close()
End If
End While
End Sub

While carpic.Width < 762
这里已经必定小于762 里面再判断没用的

width是图片的宽，如果程序没反应，那应该是你的width值大于762了，根本没进循环..而且carpic.Width = carpic.Width + 20这样做会把图片越拉越长的..而不是会动..