请问如何设置强制性软件升级? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

开发的软件已经设置好在线自动升级,只要有升级包,系统启动后就会弹出窗口询问是否升级,点击是就升级,点击否就进入系统,我想设置成点击否就推出,不允许进入系统,不知该如何设计代码?

我的代码如下:

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

Forms("导航").open()

If User.Type <> UserTypeEnum.Developer '隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)

TableCaptionVisible = False

End If

DataTables("监造基本信息表").DataCols("监造流水号").RaiseDataColChanged()

DataTables("监造物资明细表").DataCols("监造流水号").RaiseDataColChanged()

Tables("监造放行单表.监造物资明细表").Visible = False

Tables("监造日志.监造物资明细表.监造周报").Visible = False

Tables("监造日志.监造物资明细表.图纸工艺文件及进度状态表").Visible = False

Tables("监造日志.监造物资明细表.原材料及外购外协件检验表").Visible = False

Tables("监造物资明细表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造基本信息表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造周报").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造日志").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("监造放行单表").Grid.AllowFiltering = True '启动表的内置筛选功能

Tables("人员信息表").Grid.AllowFiltering = True '启动表的内置筛选功能

End If

主题：请问如何设置强制性软件升级?