مکث در اجرای خطی از برنامه در vb

چه طور می شه کاری کرد که وقتی به خطی از برنامه رسید مثلا برای 5 ثانیه صبر کنه و بعد ادامه بدهد.

کد:

---

Dim a, b
Private Sub Command1_Click()
 'کد
  Timer1 = True '
  If b = 1 Then
'کد
Else: Command1_Click
End Sub

Private Sub Form_Load()
a = 0
b = 0
End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 5 Then Timer1 = False & b = 1
End Sub

---

----------------------------------
ویرایش شد.
لطفا برای فرستادن کد از تگ کد استفاده کنید و مطالب رو در یک پست ارایه بدید.
Payman_62
----------------------------------

:20:اینم کد تاخیر در ویبی

کد:

---

' please insert this kod in module
 
Public Sub Pause(interval)
Dim X
 X = Timer
  Do While Timer - X < Val(interval)
  DoEvents
 Loop
End Sub

' please insert this kod in form

Private Sub Command1_Click()
Call Pause(5)
MsgBox " [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] "
End Sub

---

موفق باشی

سلام
دستت درد نکنه

سلام
در ضمن با استفاده از تابع sleep میشود همین کار را براحتی انجام داد