vb6 如何开辟一个线程

我想实现这样一个操作  在对话框中点吉一个按钮开辟一个线程
 在该线程中运行一个死循环   （不能用timer 空间来完成，因为我不希望有等待时间，如果timer设置成0，根本就不能完成我那个循环中的操作）  谢谢高手指点  在该线程中运行一个死循环&