VB异步执行线程的实例源代码

VB线程异步执行的实例源代码，源码还是半成品，IDE里直接崩，EXE正常，但不清楚其他人的机子怎么样，源码演示的是线程负责显示时间，并检查文本框输入，找到“zzz”字符就退出线程。这是一个还在讨论中的源代码，VB高手们有不同的意见，摘录： 　　A：晕，这最终还是调用了老汉多线程……那和线程也没什么区别吧……你应该再试一试线程池…… 　　B：不完全是，因为纤程要先ConvertThreadToFiber，才能CreateFiber，VB中就一个线程，你把它Convert成纤程，那纤程删除时整个窗体也就结束了，所以我要再建一个线程，在该线程内部调用ConvertThreadToFiber……