.Imports System

.Imports System.Threading

.

.

.Module Module1

.

.    Sub Main()

.

.        Dim mythread1 As Thread

.        Dim mythread2 As Thread

.        Dim mythread3 As Thread

.        '创建线程对象

.        mythread1 = New Thread(AddressOf mythreadrun)

.        mythread2 = New Thread(AddressOf mythreadrun)

.        mythread3 = New Thread(AddressOf mythreadrun)

.        Console.WriteLine(Now.ToLongTimeString & "线程对象创建完毕,开始执行线程")

.        '执行线程

.        mythread1.Start("线程1")

.        mythread2.Start("线程2")

.        mythread3.Start("线程3")

.        '等待线程完成

.        mythread1.Join()

.        mythread2.Join()

.        mythread3.Join()

.        '线程执行完毕

.        Console.WriteLine(Now.ToLongTimeString & "线程执行完毕!")

.    End Sub

.    Public Sub mythreadrun(ByVal data As Object)

.        Console.WriteLine(data & "," & Now.ToLongTimeString & "执行")

.    End Sub

.End Module