使用Timer()函数
这是用的最多的一种方法,也是在VB联机手册中所推荐的。添加一个CommandButton控件,再将以下代码添加到代码窗口中:
Private Sub Command2_Click() Dim Savetime As Single Text1 = "Timer begin" Savetime = Timer '记下开始的时间 While Timer < Savetime + 5 '循环等待 DoEvents '转让控制权，以便让操作系统处理其它的事件。 Wend Text1 = "Timer ok" End Sub
转自https://blog.csdn.net/autofei/article/details/645133
C#的办法：
public static bool Delay(int delayTime)
{
DateTime now = DateTime.Now;
int s;
do {
TimeSpan spand = DateTime.Now - now;
s = spand.Seconds;
Application.DoEvents();
}
while (s < delayTime);
return true;
} 
