关于VB6同一过程中不能第二次捕获到错误的问题

 Private Sub Form_Load()
Dim I As Long, J As Long, M As Long
'这里特意制造了一个除数为0的错误
lab1: On Error GoTo err1
I = 5: J = 0
M = I / J
err1:
    GoTo lab1
End Sub

 

以上是很简单的一段代码。第一次出现错误是能正常捕获到的，并且进入err1的错误处理程序，顺利转到lab1程序段,但是程序在第二次或更多次出现错误时就不能捕获到。

希望各位帮助一下。先谢谢了。