Vars("网络状态") = True

MessageBox.Show("网络状态1 = " & Vars("网络状态") ,"提醒",MessageBoxButtons.OK,MessageBoxIcon.Error)

MessageBox.Show("网络状态2 = " & Vars("网络状态") ,"提醒",MessageBoxButtons.OK,MessageBoxIcon.Error)

If Vars("网络状态") = False \'如果网络不通,禁止保存项目

    e.Cancel=True

    Dim Result As DialogResult

    Result = MessageBox.Show("网络不通,不能保存项目!" & vbcrlf & " 点击【是】按钮退出系统," & vbcrlf & " 点击【否】按钮等待网络恢复正常", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        Syscmd.Project.Exit(False)

    Else

        e.Cancel=True

        Return

    End If

End If

执行结果 ：

  网络状态1 = true

  网络状态2 =

也就是说先给  Vars("网络状态")  变量赋值后，值又没有了，请问是什么原因？