| 
    
     |  | お返事ありがとございます。 参考にさせていただいたら、うまくいきました。
 ありがとうございました。
 
 ▼ちん さん:
 >ぐうぐう さん、ちゃっぴさん今晩は、ちんといいます。
 >API関数の「SLEEP」を使用してはどうでしょうか。
 >
 >Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
 >Sub a1()
 >
 >  Debug.Print "Start Time=" + Format(Time, "hh:mm:ss")
 >  For i1 = 1 To 100
 >   Sleep (20)
 >  Next i1
 >  Debug.Print "END Time=" + Format(Time, "hh:mm:ss")
 >End Sub
 >
 >1ミリ単位から指定できます。(Sleep(1))
 >
 >以上、参考までに・・・
 >
 >▼ぐうぐう さん:
 >>はじめまして。
 >>タイマーイベントをミリ秒単位で
 >>発生させる方法をご存知の方がいたら教えていただけないでしょうか。
 >>
 >>現在はしたのようにしていますが
 >>next_on = Now() + TimeValue("00:00:03")
 >>Application.OnTime Next_on, "GOGO"
 >>
 >>next_onにミリ秒単位で指定したいのです。
 >>
 >>よろしくお願いします。
 >>
 
 |  |