Diğer bahsettiğim yöntem de aslında Api kullanmadan fonksiyon ile yapılan daha basit bir çözümdür. Onda da bir fonksiyon hazırlarsınız.

Public Sub Bekle(süre As Double)

 Dim baslama

 baslama = Timer

 Do While Timer < baslama + süre

    DoEvents

 Loop

End Sub

Artık istediğiniz yerden

bekle(5)

şeklinde süre vererek kullanabilirsiniz.