Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sleep 1000      '就是延时一秒。