فاصله ی زمانی بین اجرای دستورات!

[علیرضا.ا]

سلام

چجوری باید بین اجرای دستورات فاصله ی زمانی گذاشت؟
مثلا در کد زیر:
Private Sub Command1_Click()
label1.Caption = "A"
label2.Caption = "B"
End Sub

با زدن command1 بلافاصله A ظاهر بشه و پس از گذشت مثلا 5 ثانیه B ظاهر بشه!
ممنون

[ho3ein.3ven]

سلام . از تایمر استفاده کن

[mmssoft]

سلام . از تایمر استفاده کن

درسته، به این شکل :

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 5000
End Sub

Private Sub Command1_Click()
Label1.Caption = "A"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label2.Caption = "B"
Timer1.Enabled = False
End Sub

[niksalehi]

سلام!




Sub Pause(interval)
Dim TM
TM = Timer
Do While Timer - TM < Val(interval)
DoEvents
Loop
End Sub

اینطوری استفاده میشه:


Private Sub Command1_Click()
label1.Caption = "A"

pause 5

label2.Caption = "B"
End Sub

[مهرداد صفا]

با سلام.
از تابع Sleep (http://msdn.microsoft.com/en-us/library/windows/desktop/ms686298%28v=vs.85%29.aspx) استفاده کنید.
مثال:

Private declare sub Sleep lib "kernel32" (ByVal Milliseconds as long)
'....
'..
private sub Button_click()
Sleep 5000
MsgBox "5 seconds later!"
end sub