不好意思，简单问题没搞定

Question

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Sleep(5000)         '延时5秒

Answer 1

windows里有黑屏的屏保啊？忽略第一次MouseMove
Private dblIsLoad As BooleanPrivate Sub Form_Activate()
    dblIsLoad = False
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If dblIsLoad Then Unload Me
    dblIsLoad = True
End Sub

Answer 2

（我不要延时）我的机器支持休眠，怎么作呢To fuxc(Michael)
这也是一种方法 还有别的办法吗

Answer 3

                        用个空循环。实在不行你加个TIMER算了！