主题：发布后的项目，若网络断开后又重新恢复，出现程序一直无响应，该怎么处理啊？

BeforeShowErrorMessage加入以下代码，解决了系统：

If e.Message2.indexof("一般性网络错误") > -1 Or  e.Message2.indexof("SQL Server 不存在或拒绝访问") > -1 Then
    MyTimers("计划1").Enabled = False

    If vars("select") = False   ‘这句干啥呢，有啥用啊
        'vars("select") = True  ‘这一句，注释掉了，否则断网后客户端就死机了
        
        Dim Result As DialogResult
        Result = MessageBox.Show("网络不通,点击是将退出,点击(否)继续等待网络正常后再操作!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Syscmd.Project.Exit(False)
        Else
            e.Cancel=True
            Return
        End If
       
    End If
   
Else
    MyTimers("计划1").Enabled = True       '这句即使放着好像也没用，只有弹出 不是if 之后的那两种的错误窗口才会执行
   
End If

问题是：当断了本地网络后，点击 弹窗的“是” 时，出现弹窗“正在加载数据的过程，不能关闭项目”，怎么没能关闭掉项目啊？

其实我就想   断网的话，让 计划1 停止掉，网络恢复了就 将 计划1 继续执行啊（以上代码可以解决，停掉 计划1，但是不能解决 继续执行计划1）。