一定間隔を待たせるには？ (ID:76733)

名前

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

本文 VBの初心者です。 一定間隔を待たせる下記のようなルーチンを作成しましたが、間隔が一定にできません。いい方法をご存知ありませんか？ call 時間wait("00:00:03")'3秒待たせる Private Sub 時間wait(t As String) Dim StartTime As Date Dim KeikaJikan As Date Timer1.Enabled = True 'スタートの時刻を記憶 StartTime = Time() Do Until KeikaJikan >= t DoEvents 'スタートからの差を計算 KeikaJikan = Time() - StartTime Loop Timer1.Enabled = False End Sub