２０．指定した時間の間、処理を待機させる方法
＜ 使用用途 ＞ 特定の時間、処理を止める時に使う。
＜ 説明 ＞ 使用用途と同様。
< ＳＡＭＰＬＥ ＞ ’サンプルでは1秒間処理をストップさせる方法です。
Dim Now As Long Now = Timer While Timer < Now +1 '1秒間待機する DoEvents Wend Beep '終了した事を教える