Dim LockWin As String
创新互联专注于台儿网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供台儿营销型网站建设，台儿网站制作、台儿网页设计、台儿网站官网定制、小程序开发服务，打造台儿网络公司原创品牌,更为您提供台儿网站排名全网营销落地服务。
LockWin = "powrprof.dll,SetSuspendState Hibernate"
Shell("rundll32.exe " LockWin) '调用系统锁定程序
vb点虐 锁定除顶级窗体以外的操作步骤如下：
1、通过Show方法，用以显示MDIForm或Form对象。
2、当Show在显示无模式窗体时，随后遇到的代码则要执行。
3、当Show在显示模式窗体时，则随后的代码直到该窗体被隐藏或卸载时执行即可。
locked是线程相关的东西，是保证一次只能一个线程调用，readonly是只读属性，概念区别大大的呀。
提示文件正在被使用，说明文件被其他进程锁定了，不能打开。持续更新的文件，如果不是被锁定的，可以定时去重新打开一次，如果是被锁定的文件是没法打开的。
