有没有有效的时间间隔函数阿/

在编程的过程中,我想要是想实现例如下面的效果
。。。。（延迟2秒后接着输出）
。。。。（2s）
。。。。（2s）
这样的效果
我的代码是：
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Write(Date.Now)
        Thread.Sleep(10000)
        Response.Write(Date.Now)
    End Sub
我已经声明了Imports System.Threading
另外，我也用过了自己定义一个delay函数来延迟，如下：
Public Sub DelayTime(ByVal pMillSecond As Integer)
        Dim NowTime As Integer
        NowTime = System.Environment.TickCount
        Do
        Loop Until System.Environment.TickCount > NowTime + pMillSecond
    End Sub
引用代码如下：
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Write(Date.Now)
        DelayTime(10000)
        Response.Write(Date.Now)
    End Sub
但是这样两种方法运行时，总是到最后一下子就出来了结果，并没有输出一个后，延迟2s后再输出下一个，这个问题在哪里呢？请高手赐教。
我在线等，请测试后给我最有效的答复，谢谢。 --------------------编程问答-------------------- --------------------编程问答-------------------- 简单的就是thread.sleep()了 --------------------编程问答-------------------- --------------------编程问答-------------------- thread.sleep我用过了，但是效果还是那样的，所以不知道哪里的问题了？  谁帮我解决一下啊！ --------------------编程问答-------------------- Response.Write 仅仅是输出到缓冲区...延时肯定是延了只是那是在服务器端...

你应该先搞清楚http的基本原理...你要的效果只能用客户端脚本比如js来实现... --------------------编程问答-------------------- 加个timer控件，设置2秒。

在 Timer1_Tick 里显示。 --------------------编程问答-------------------- Response.Write(Date.Now)
application.doevents
Thread.Sleep(10000)
Response.Write(Date.Now)
--------------------编程问答-------------------- ''' <summary>
    ''' 延时
    ''' </summary>
    ''' <param name="num">延时毫秒数</param>
    ''' <remarks></remarks>
    Public Sub DelayTime(ByVal num As Long)
        Dim oldTime As DateTime
        oldTime = DateTime.Now
        Do
            My.Application.DoEvents()
        Loop While DateTime.Now.Ticks - oldTime.Ticks < num * 10000
    End Sub --------------------编程问答-------------------- 你在一个线程里延时，肯定是这个结果，所以你要保证在延时的时候还能接收外界的消息，使用application.doevents。

补充：.NET技术 ,  VB.NET