vb中的延时函数

Public Sub Delay(PauseTime As Single)
    Dim Start     As Single
        Start = Timer
        Do While Timer < Start + PauseTime
            DoEvents
        Loop
End Sub