[VB6] Delay函數，取代難用的Sleep

1. Private Sub Delay(ByVal Sec As Single)
   Dim sgnThisTime As Single, sgnCount As Single
   sgnThisTime = Timer
   Do While sgnCount < Sec
    sgnCount = Timer - sgnThisTime
    DoEvents
   Loop
   End Sub