sleep 是一个非常简单的api语句,作用是"延时" DoEvents控件权移交给操作系统

public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
私有API函数 作用是延时，当程序某段代码循环运行的时候，为了更好的看到程序运行的效果
使用该函数
语法：Sleep 长整型数值

实现一个窗口左右抖动的效果
Private Sub CmdWindwos2_Click()
Dim i As Integer
Do While i <= 6
Me.Left = Me.Left - 300: Sleep 50: DoEvents '实现窗口向左偏移300
Me.Left = Me.Left + 300: Sleep 50: DoEvents '实现窗口向右偏移300
i = i + 1
Loop
End Sub
本文出自 “卢伟青的博客” 博客，请务必保留此出处http://ycluwq.blog.51cto.com/7588370/1691151