急，大家给看看代码是什么意思？

Question

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 On Error Resume Next
    Image1(PrevButton).BorderStyle = 0
    Image2(PrevButton).Visible = True
    PrevButton = -1
End Sub

Answer 1

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)'主窗体  随便移动下鼠标 触发事件 On Error Resume Next'遇到错误 继续下一步
  Image1(PrevButton).BorderStyle = 0 '样式为0
  Image2(PrevButton).Visible = True'可见
  PrevButton = -1'赋值 -1
End Sub

Answer 2

光看这部分代码看不出程序要做啥,执行第一次使得PrevButton = -1后再执行有啥意义呢

Answer 3

保证image1控件数组同一元素的样式和可见性，在MDIForm_MouseMove事件里只改变一次。

Answer 4

是这样的:
PrevButton = -1时
Image1(PrevButton).BorderStyle = 0
Image2(PrevButton).Visible = True
都要报错,由于用了
On Error Resume Next
那么
Image1(PrevButton).BorderStyle = 0
Image2(PrevButton).Visible = True
就不会被反复执行了.