1.Imports System  
2.Imports System.Threading  
3.  
4.  
5.Module Module1  
6.  
7.    Sub Main()  
8.  
9.        Dim mythread1 As Thread  
10.        Dim mythread2 As Thread  
11.        Dim mythread3 As Thread  
12.        '创建线程对象  
13.        mythread1 = New Thread(AddressOf mythreadrun)  
14.        mythread2 = New Thread(AddressOf mythreadrun)  
15.        mythread3 = New Thread(AddressOf mythreadrun)  
16.        Console.WriteLine(Now.ToLongTimeString & "线程对象创建完毕,开始执行线程")  
17.        '执行线程  
18.        mythread1.Start("线程1")  
19.        mythread2.Start("线程2")  
20.        mythread3.Start("线程3")  
21.        '等待线程完成  
22.        mythread1.Join()  
23.        mythread2.Join()  
24.        mythread3.Join()  
25.        '线程执行完毕  
26.        Console.WriteLine(Now.ToLongTimeString & "线程执行完毕!")  
27.    End Sub  
28.    Public Sub mythreadrun(ByVal data As Object)  
29.        Console.WriteLine(data & "," & Now.ToLongTimeString & "执行")  
30.    End Sub  
31.End Module  

Dim mythread1 As Thread 初始化Thread 类的新实例，指定允许对象在线程启动时传递给线程的委托。

 线程不会在创建时开始执行。 若要为执行而调度线程，调用start方法。

上面代码创建了3个thread对象，然后调用它们的start方法执行它们

调用join方法等它们执行完毕

可在VB.NET2010中建立一个新的Console应用程序，然后在模块中编写以上代码

New Thread(AddressOf mythreadrun) 构造函数中必须将要做为线程执行的函数做为参数传入

mythread1.Start("线程1") start方法可以在执行线程时，向其传入参数

Imports System Imports System.Threading