'repeat the loop until the user enters q
        End While
        t1.Stop() 'tell thread to stop processing
        t1.Join() 'wait until the thread finishes
    End Sub
    Sub StartCounting()
        Do
            'use Interlocked.Increment in case
            'another thread is accessing the same variable
            Interlocked.Increment(count)
            Console.WriteLine( _
"After incrementing count is : {0}", count)
            Thread.Sleep(200)
        Loop
    End Sub
End Module

清单1. 使用Visual Basic .NET创建线程

你创建了一个新线程，将它传递给一个ThreadStart代理。然后调用Thread.Start()启动这个线程。你可以通过调用Thread.Stop()来中止这个线程，然后调用Thread.Join()等待它完成关闭操作。一个线程可以使用System.Threading.Interlocked来使变量递增或递减。

此外，.NET Framework提供了一个方便的机制来对工作排队，并将起分配给线程池中的某个线程。在处理多个并发工作项目或工作请求的服务器应用程序中，这非常有用。例如，对于等待输入文件，然后将它们导入到数据库中去的应用程序，可能会对每个输入文件进行排队，以在线程池中的某个单独的线程上进行处理。System.Threading.ThreadPool类允许你使用共享的QueueUserWorkItem方法对工作进行排队。以前要这样做，你必须得创建和管理自己的线程池。你又需要在基础设施工作而不是在解决商务问题上花大量的时间和精力。