20-02-16, 11:08 AM
يمكننا تأجيل تنفيذ الكود بالثواني من دون أداة Timer فقط Command1
كود :
Public Sub Delay(Times As Double)
TempTime = DateAdd("s", Times, Now)
While TempTime > Now
DoEvents
Wend
End Sub
'==============
Private Sub Command1_Click()
Delay 5
MsgBox "test"
End Sub