時計が遅れないようにするには？ (ID:74711)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 入力された時間を一秒ずつ Beep を鳴らしながらカウントしていくプログラムなんですが，走らせているうちにパソコンの時計がずれるんです． (.frm) For I = 0 to text1.text Call Pause(1000) Beep Next I (.bas) Public Sub Pause(Pausetime as Long) Call Sleep(1000) DoEvents End Sub または， Public Sub Pause(Pausetime as Long) Dim Start as Double Start = GetTickCount Do While GetTickCount < Start + Pausetime DoEvents Loop End Sub これでなぜ時計がずれるんでしょう？ DoEventsのせいかな？でもDoEventsが無いと途中で止めれれないし...