一个CPU占用率高的问题，高分求助

Question

一段倒记时的代码，由于不停的执行，使CPU占用率永远100%。如何才能降下来呢？
代码如下：
     Dim TotalSecond As Long
     Dim RemainTime As Long
     Dim BeforeSecond As Single
     Dim k As Single
     CancelDo = False
     TotalSecond = 3600 * Hour(time1) + 60 * Minute(time1) + Second(time1)
     BeforeSecond = Timer
     Do While k <= TotalSecond
          If CancelDo Then GoTo Quit
          If Timer >= (BeforeSecond + k + 1) Then
               RemainTime = TotalSecond - (k + 1)
               Me.StatusBar1.Panels(2).Text = CStr(RemainTime \ 3600) & ":" & CStr((RemainTime Mod 3600) \ 60) _
                           & ":" & CStr((RemainTime Mod 3600) Mod 60)
               k = k + 1
          Else
               DoEvents
          End If
     Loop
     BeforeSecond = Timer
     k = 0.25
     Beep
     Do While k <= 1
          If Timer >= (BeforeSecond + k) Then Beep: k = k + 0.25
     Loop
Quit:
     .....
     Exit Sub
能在不使用双线程的情况下解决这个东西吗？另外VB6.0是不是不支持双线程啊？

Answer 1

两个
do while
  ...
loop
中加入 DoEvents后。你再试试。

Answer 2

能支持，但支持得不好。
我看你还改改吧，哪有这么做倒计时的。Time = TimeSerial(Hours, Minutes, Seconds)

Answer 3

用了doEvents，cpu100％，我也不知道怎么解决，大家顺便看看：
http://expert.csdn.net/Expert/topic/2011/2011010.xml?temp=.0315668

Answer 4

用TIMER控件做倒计时就好了,确实哪有这么做倒计时的.

Answer 5

我是看过这样的东西~，试了试~发现CPU占用很高，用楼上的那位同志的做法也是可以的。
但最关键还是do while loop造成的CPU占用很高的问题~~
我在两个Do while .....loop中加了doevents ~好象还是这样~~~~大家还有什么办法吗？？

Answer 6

现在的问题可以放到 如何解决do while ....loop 造成的CPU大量被占用的问题~
请大家多发表一下看法吧

Answer 7

哪里有遇到问题就跑的啊~~~实在不行再用Timer吧~~哎~~~~~