Function Square(ByVal Value As Double) As Double

　　Return Value * Value

　　End Function

　　为了在一个新的线程中使用这个过程，我们将它封装到一个类中：

　　Public Class SquareClass

　　Public Value As Double

　　Public Square As Double

　　Public Sub CalcSquare()

　　Square = Value * Value

　　End Sub

　　End Class

　　使用这些代码来在一个新的线程上启动CalcSquare过程，如下所示：

　　Private Sub Button1_Click(ByVal sender As System.Object, _

　　ByVal e As System.EventArgs) Handles Button1.Click

　　Dim oSquare As New SquareClass()

　　t = New Thread(AddressOf oSquare.CalcSquare)

　　oSquare.Value = 30

　　t.Start()

　　End Sub

　　要注意到，在线程启动后，我们并没有检查类中的square值，因为即使你调用了线程的start方法，也不能确保其中的方法马上执行完。要从另一个线程中得到值，有几个方法，这里使用的方法是最简单的，即是在线程完成的时候触发一个事件。我们将在后面的线程同步中讨论另一个方法。以下的代码为SquareClass加入了事件声明。

　　Public Class SquareClass

　　Public Value As Double

　　Public Square As Double

　　Public Event ThreadComplete(ByVal Square As Double)

　　Public Sub CalcSquare()

　　Square = Value * Value

　　RaiseEvent ThreadComplete(Square)

　　End Sub

　　End Class

　　在调用代码中捕捉事件的方法和VB6差不多，你仍然要声明WithEvents变量，并且在一个过程中处理事件。有些不同的是，你声明处理事件的过程使用的是Handles关键字，而不是通过VB6中通常使用的Object_Event。

　　Dim WithEvents oSquare As SquareClass

　　Private Sub Button1_Click(ByVal sender As System.Object, _

　　ByVal e As System.EventArgs) Handles Button1.Click

　　oSquare = New SquareClass()

　　t = New Thread(AddressOf oSquare.CalcSquare)

　　oSquare.Value = 30

　　t.Start()

　　End Sub

　　Sub SquareEventHandler(ByVal Square As Double) _

　　Handles oSquare.ThreadComplete

　　MsgBox("The square is " & Square)

　　End Sub

　　对于这种方法，要注意的是处理事件的过程，在这个例子中的是SquareEventHandler，将运行在产生该事件的线程中。它并不是运行在表格执行的线程中。

　　同步线程

　　在线程的同步方面，VB.NET提供了几个方法。在上面的平方例子中，你要与执行计算的线程同步，以便等待它执行完并且得到结果。另一个例子是，如果你在其它线程中排序一个数组，那么在使用该数组前，你必须等待该处理完成。为了进行这些同步，VB.NET提供了SyncLock声明和Thread.Join方法。

　　SyncLock可得到一个对象引用的唯一锁，只要将该对象传送给SyncLock就行了。通过得到这个唯一锁，你可以确保多个线程不会访问共享的数据或者在多个线程上执行的代码。要得到一个锁，可使用一个较为便利的对象--与每个类关联的System.Type对象。System.Type对象可通过使用GetType方法得到：

　　Public Sub CalcSquare()

　　SyncLock GetType(SquareClass)

　　Square = Value * Value

　　End SyncLock

　　End Sub

　　另一个是Thread.Join方法，它可让你等待一个特定的时间，直到一个线程完成。如果该线程在你指定的时间前完成了，Thread.Join将返回True，否则它返回False。在平方的例子中，如果你不想使用触发事件的方法，你可以调用Thread.Join的方法来决定计算是否完成了。代码如下所示：

　　Private Sub Button1_Click(ByVal sender As System.Object, _

　　ByVal e As System.EventArgs) Handles Button1.Click

　　Dim oSquare As New SquareClass()

　　t = New Thread(AddressOf oSquare.CalcSquare)

　　oSquare.Value = 30

　　t.Start()

　　If t.Join(500) Then

　　MsgBox(oSquare.Square)

　　End If

　　End Sub

　　对于这种方法，要注意的是处理事件的过程，在这个例子中的是SquareEventHandler，将运行在产生该事件的线程中。它并不是运行在表格执行的线程中。