1.Imports System2.Imports System.Threading3.4.5.Module Module16.7.SubMain()8.9.Dimmythread1AsThread10.Dimmythread2AsThread11.Dimmythread3AsThread12.'创建线程对象13. mythread1 =NewThread(AddressOfmythreadrun)14. mythread2 =NewThread(AddressOfmythreadrun)15. mythread3 =NewThread(AddressOfmythreadrun)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 Sub28.PublicSubmythreadrun(ByValdataAsObject)29. Console.WriteLine(data &","& Now.ToLongTimeString &"执行")30.End Sub31.EndModule
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
