等候5秒

Imports System
Imports System.Threading

Module Module1
    '修改此參數可改變等候時間數， 下面例子為5秒
    Dim waitN As New TimeSpan(0, 0, 5)
    Sub Main()
        Dim newThread As New Thread(AddressOf Waiting)
        newThread.Start()
        Console.WriteLine("開始...")
        If newThread.Join(TimeSpan.op_Addition(waitN, waitN)) Then
            Console.WriteLine("5秒時間到！")
        End If
        Console.ReadKey()
    End Sub

    Sub Waiting()
        Thread.Sleep(waitN)
    End Sub
End Module

修改自： http://webcache.googleusercontent.com/search?q=cache:1MwDSgUyYj8J:msdn.microsoft.com/zh-tw/library/274eh01d(VS.80).aspx+vb.new+threading+sleep&cd=1&hl=zh-TW&ct=clnk&gl=tw