Süreli bekletme

[k0081]

Merhaba arkadaşlar;

Aşağıda vermiş olduğum açıklamaya göre kodları 4sn bekletip nasıl mesaj verdirebilirim.?

açıklama
-----------------
...
...
... rem kodlar
...

4sn beklet
Msgbox "4sn beklendi."
F5 tuşuna bas ( Sendkeys "F5" )
------------------------

yardımcı arkadaşa şimdiden teşekkürler.

 

[Muzaffer Ali]

4 saniye bekletmek için

Application.Wait (Now + TimeValue("0:00:04"))

 

[k0081]

dalgalikur;

Teşekkürler hocam, tamamdır..

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub KOD()
    Sleep 1000
    MsgBox "123"
End Sub

. . .

 

[k0081]

Hüseyin Çoban

Alternatif için teşekkürler hocam..

 

[EXTEBAN]

Merhaba ;

Bu işlemin 64 bit sistemlerde çalışması adına bir öneriniz olabilir mi acaba. ?

Göstereceğiniz ilgi için şimdiden teşekkürler.