Sub Main() Call Read_CFG() '读取 本地配置文件 Dim xx As New SQLstr_DB frmSQLstr.Show() frmOpenCFG.Show() Do While True DoEvents() Loop End Sub
可以用这个退出. Application.Exit()
Application.Exit()
16,721
社区成员
110,526
社区内容
加载中
试试用AI创作助手写篇文章吧