主题：[求助]关于锁屏后不断闪烁问题！

代码改成这样

If LastInputTickCount > 10000 Then   '如果在10秒没有操作
    If forms("锁屏窗口").opened = False Then
        basemainform.Visible = False  '隐藏主界面
        forms("锁屏窗口").show
        basemainform.Visible = True  '显示主界面
    End If
End If