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
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
