بهتره از Timer استفاده کنید...
برای 3 ثانیه
Time1.Interval = 3000
Private Sub Timer1_Timer()
Timer1.Enabled = False
Command1_Click
End Sub
البته اینجوری دستورات پشت سر هم انجام نمیشه در این غیر صورت:
Dim t As Long
t = Timer
Do Until Timer - t > 3
Loop
پاسخ با نقل قول