请问关于程序控制的问题

Question

我想在某个条件下，让正在运行的程序停下来，回到开始的状态，重新运行。
Private Sub Timer1_Timer()
 If ck = ct Then
   GoTo Form_Load
 End If
 ck = ct
End Sub
请问这样实现可以吗？这个的意思是这样的，ct一直在那里累加，当程序故障的时候，ct会停下来，timer1的时间是2秒，当检测到ct停止的时候，我就让它自动重新开始。有更好的方法吗？谢谢啦！

Answer 1

不好意思，是call Form_Load，Goto不行。当程序停止的时候，timer是不会停的。请问有显示error的方法吗？还有就是怎样做更好呢？

Answer 2

那个timer就是做监控用的。那你可否有详细的方案呢？

Answer 3

Err.Description 显示错误信息
Err.Number      错误号你可以通过错误号 来判断是什么错误
也可以用msgbox err.Err.Description,,"错误" 来显示错误信息如果要判断错误号if Err.Number=11 then
   call Form_Load
else
  msgbox err.Err.Description,,"错误" 来显示错误信息
endif
Err.Number=11  是一个 错误号 你可以根据你的需要

Answer 4

象When error resume next有什么用啊？有error发生的时候，是用什么方式检测呢？是if ***error then *****这种格式吗？

Answer 5

error resume next 是 出错继续
 
用on error goto 
   
中间是可能是要出错的地方
是你的代码exit' 一定要加这句话
d:
if Err.Number=11 then
   call Form_Load
else
  msgbox err.Err.Description,,"错误" 来显示错误信息
endif