Sleep is a very simple API statement that functions as a "delay" DoEvents control right handed over to the operating system

Public Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds as Long)

The function of the private API is delay, when the program code loop run, in order to better see the effect of the program run

Use this function

Syntax: Sleep Long Integer value

Achieve a window left and right jitter effect

Private Sub Cmdwindwos2_click ()
Dim I as Integer
Do While I <= 6
Me.left = me.left-300:sleep 50:doevents ' Implementation window offset left 300
Me.left = me.left + 300:sleep 50:doevents ' implementation window offset right 300
i = i + 1
Loop
End Sub

This article is from the "Lu Weizing blog" blog, make sure to keep this source http://ycluwq.blog.51cto.com/7588370/1691151

Sleep is a very simple API statement that functions as a "delay" DoEvents control right handed over to the operating system