[Amin_Mansouri]

درود
خوش امدی به فروم
api زیر رو وارد کن
Private Declare Function GetTickCount Lib "kernel32" () As Long


بعد تابع زیر :

کد:

Public Function Wait(Time As Long)
Dim StartTime As Long
StartTime = GetTickCount()
While (StartTime + Time) > GetTickCount()
DoEvents
Wend
End Function

فرااخوانیش کن
اینجوری

کد:

wait("50000")
msgbox "ok"

یا کامپونت timer استفاده کن