如何响应窗口关闭按钮？

Question

在一个form_load里面，有一个死循环，我用show强制把窗口显示出来，大概是这样
form_load  
{
    show 0
    while(true) {}
}这样，当程序运行到循环中时，窗口时可见的，，，但是我点窗口右上角的关闭按钮，就是那个X时，窗口不会关闭，这究竟是为什么啊？ 点最大化和最小化的按钮都很正常的啊

Answer 1

form_unload   
{
end
}

Answer 2

Private Sub Form_Load()
   Show 0
   While 1
     DoEvents
   Wend
End Sub

Answer 3

Option Explicit
Dim a As BooleanPrivate Sub Form_Load()
    Show 0
    Do While a = False
        DoEvents
    Loop
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    a = True
End Sub

Answer 4

4F DoEvents 正解