你的子线程用字典记录着其变量,如字典 dic
Dim nthread As New System.Threading.Thread(AddressOf thread_sub1)
dic.add("abc", nthread)
然后,你想获取哪个线程的状态,根据名字就能对应的获取对象。这样就可以做各种操作了