vb中的延时函数

Public Sub Delay(PauseTime As Single)
    Dim Start     As Single
        Start = Timer
        Do While Timer < Start + PauseTime
            DoEvents
        Loop
End Sub
posted @ 2007-08-09 13:21  放飞梦想  阅读(1829)  评论(0)  编辑  收藏  举报