多线程引用：System.Threading

Dim threadinfo as new Thred(new ThreadStart(Addressof 程序))

threadinfo.start

threadinfo.abort