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