VB 解决sleep卡屏

Public Sub Delay(mSec As Long)
          On Error GoTo ShowErr
          Dim TStart       As Single
          TStart = Timer
          While (Timer - TStart) < (mSec / 1000)
                  DoEvents
          Wend
          Exit Sub

然后你代码中的sleep换成: Delay (1000)