vb.net中如何实现精确延时

最近在使用VB.NET做点东西，用到了一些精确延时程序，不知道该使用那些头文件或者库函数，去实现精确延时，比如要实现延时500ms的程序，该如何写这部分程序，哪位高手有这样的演示程序，希望能分享一下，谢谢！ --------------------编程问答--------------------

n = System.Environment.TickCount

While (i < 500)

    i = System.Environment.TickCount - n

End While

--------------------编程问答-------------------- API函数GetTickCount可以实现 --------------------编程问答--------------------

引用 2 楼 veron_04 的回复:

API函数GetTickCount可以实现

很久不见……呵呵！ --------------------编程问答-------------------- Thread.Sleep(1000)
DoEvents(保证消息循环)   --------------------编程问答-------------------- 用计时器一样可以实现
--------------------编程问答-------------------- 用线程比较稳定，Timer控件有时候会有问题 --------------------编程问答--------------------

引用 1 楼 xiaoid 的回复:

VB.NET code
n= System.Environment.TickCountWhile (i<500)
    i= System.Environment.TickCount- nEndWhile

这样就可以了 --------------------编程问答--------------------

        For i As Integer = 1 To 10

            TextBox1.Text = TextBox1.Text & i & vbCrLf

            System.Threading.Thread.Sleep(500)

            My.Application.DoEvents()

        Next i

补充：.NET技术 ,  VB.NET