vb中的延时函数

Public Sub Delay(PauseTime As Single)

Dim Start As Single

Start = Timer

Do While Timer < Start + PauseTime

DoEvents

Loop

End Sub