屏幕的暂停与更新

LockWindowUpdate 和GetDesktopWindow 一般配对使用，作用跟我们熟识的 DoCmd.Echo False和 DoCmd.Echo True有点相似，功能更为强大，在调用前，必须作如下的声明：

      '锁定指定窗口，禁止它更新。同时只能有一个窗口处于锁定状态
      Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
     ' 获得代表整个屏幕的一个窗口（桌面窗口）句柄
      Private Declare Function GetDesktopWindow Lib "user32" () As Long
   

       '锁定屏幕暂停刷新
      LockWindowUpdate GetDesktopWindow
       '这里是你认为不想显示的代码语句
       .............
     '恢复屏幕刷新
      LockWindowUpdate False