189 8069 5689
第一个for完成对delay_time参数的控制，即共循环多少次内部循环
创新互联于2013年开始，先为西畴等服务建站，西畴等地企业，进行企业商务咨询服务。为西畴企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
第二个for（内部循环），完成对j从0到199的控制，共循环200次。
翻译成汇编就是：
(R0为传递参数)
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET
Private Sub Button1_Click()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
如果暂停的3秒有影响，就给他开一个线程：
Private Sub Button1_Click()
Dim th As New Threading.Thread(AddressOf MsgBoxProc)
th.Start()
End Sub
Private Sub MsgBoxProc()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
1. Threading.Thread.Sleep(...)
优点： 简单
缺点： Sleep期间程序（其实是该线程）没有任何响应。
2. Timer(定时器)
定时器有3种。Forms.Timer/ Timers.Timer/ Threading.Timer
第一种是在当前线程启动事件处理，第二种在事件发生时会启动一临时线程处理事件，第三种在事件发生时在一临时线程中调用指定的回调函数。
优点： 不阻塞当前线程
缺点： 需要定义一事件函数以处理定时事件。
3. DoEvents(保证消息循环)
可以使用一循环执行定时。代码示例：
Public Shared Sub Sleep(ByVal Interval)
Dim __time As DateTime = DateTime.Now
Dim __Span As Int64 = Interval * 10000 '因为时间是以100纳秒为单位。
While (DateTime.Now.Ticks - __time.Ticks __Span)
Application.DoEvents()
End While
End Sub
优点： 不阻塞当前线程的消息循环。
缺点： 不能保证消息处理能否及时回来。
===========================================
结论：
1. 在没有消息循环线程中，使用Thread.Sleep
2. 在带消息循环线程中，如果需要定时执行一段程序，使用Forms.Timer
3. 在带消息循环线程中，若只想延时一段时间，请使用上面示例中自定义的Sleep
4. 若要保证定时精度，请使用Threading.Timer或Timers.Timer.(这两个只是调用接口不一样， 一个是回调函数，一个是事件；前者更精确些)
在VB.NET中，带框架窗体的大小是不能为0的，要想做到高、宽都为0，需要自己重绘一个无边框窗体，用外置图片来绘制，配合PS做一些图片，既可以换肤还能做的很漂亮。
按当前代码修改，你把下面的代码粘回去就可以了，窗体的高和宽达到最小时，循环会自己退出，避免无限循环；
Select Case 2
Case Is = 1
Dim w As Integer = Me.Width
Do
Me.Width -= 5 : w -= 5
Threading.Thread.Sleep(3)
Loop While Me.Width = w
Case Is = 2
Dim h As Integer = Me.Height
Do
Me.Height -= 5 : h -= 5
Threading.Thread.Sleep(3)
Loop While Me.Height = h
Case Is = 3
Do
Me.Opacity -= 0.05
Threading.Thread.Sleep(120)
Loop Until Me.Opacity = 0
End Select
Imports System.Threading
Thread.Sleep(1000)’延迟1秒
2.PauseWait(1000)’延迟1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub