请教一个doevents的问题

Question

我在应用中发现使用如下的程序不能正常退出应用for while true doeventsloop关闭调试应用程序，发现依旧还有东西没有退出，因为调试工具栏中的暂停和停止键有效

Answer 1

死循环！？
'在模块中
Public GoOut As Boolean'原来的过程中：
for while true doevents
         If GoOut Then Exit Forloop'在主窗体
Private Sub Form_Unload()
    GoOut = True
End Sub

Answer 2

Private Sub Command1_Click()
Do While True
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
End     '不用unload me 
End Sub

Answer 3

http://www.china-askpro.com/msg17/qa99.shtml