vb2005でプログラムをとめるコードは？

質問

お世話になります。
vb2005でプログラムに５秒間、時間をとめようとおもいます。
これだとTimerにエラーがでてしまいます。
（'Timer' は型です。有効な式ではありません。）
どこをどうなおせばエラーがでなくなるのでしょうか？
教えてください。お願いします。

Dim sngSt As Single
sngSt = Timer
Do While Timer - sngSt < 5
DoEvents()
Loop

回答No.1

tkrn · ベストアンサー

Dim dtmStart As DateTime = DateAdd(DateInterval.Second, 5, Now)
Do While Now < dtmStart
Application.DoEvents()
Loop
でどうでしょうか？

DoEvents()が不要であれば、
System.Threading.Thread.Sleep(5000)
でも可能です。

お礼

ありがとうございます。
勉強になりました。