If e.Message2.indexof("登录超时已过期") > -1 Then
Dim Result As DialogResult
Result = MessageBox.Show("网络不通,点击是将退出,点击(否)继续等待网络正常后再操作!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit()
Else
e.Cancel = True
Return
End If
End If