كود تأجيل تنفيذ الكود لفترة معينة

'ضع الكود في الفورم

Public Sub Delay(HowLong As Date) 

TempTime = DateAdd("s", HowLong, Now) 

While TempTime > Now 

DoEvents 

Wend 

End Sub 

Private Sub Command1_Click() 

Delay 5 

MsgBox "Test" 

End Sub

'قم بتغيير "5" الى اي فترة زمنية تريدها بالثواني