VB6.0中如何设置延时

方法很多个。

可以使用API函数Sleep

Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)

调用比如睡眠1秒:Sleep(1000)

另外还有一种延时方法，即获取当前系统时间+延时派晌时间=等待结束时间仿晌，等到了等备羡锋待结束时间到了就往下执行。

Private Declare Function GetTickCount Lib "kernel32" () As Long

'自编应用函数

Private Sub WaitForMS(MillSeconds As Long)

Dim S as Long

S=GetTickCount+MillSeconds

Do

If GetTickCount=S Then Exit Sub

Loop

End Sub

这个函数的调用跟上面的相似，单位是ms。

Private Declare Sub Sleep Lib "宽明kernel32" (ByVal dwMilliseconds As Long) '延磨局时函慎游告数

Private Sub Form_Load()

Sleep 3000 '延时3000毫秒=3秒

End Sub

---