多线程

'首先包含线程的命名空间
Imports System
Imports System.Threading

'线程1
Public sub Method1()

end sub

'线程2
Public sub Method2()

end sub

'//////事件中//////
'定义线程1，线程2，必要时在适当位置定义成Public
dim ht1,ht2 as thread

'实例化ht1,ht2
th1 = New Thread(new threadstart(addressof method1))
th2 = New Thread(new threadstart(addressof method2))

'启动线程1
th1.start
'启动线程2
th2.start

'终止线程1
th1.about
'终止线程2
th2.about