怎么响应窗口关闭按钮

如何响应窗口关闭按钮？
在一个form_load里面，有一个死循环，我用show强制把窗口显示出来，大概是这样
form_load  
{
  show 0
  while(true) {}
}

这样，当程序运行到循环中时，窗口时可见的，，，但是我点窗口右上角的关闭按钮，就是那个X时，窗口不会关闭，这究竟是为什么啊？ 点最大化和最小化的按钮都很正常的啊

[解决办法]

VB code

Option ExplicitDim a As BooleanPrivate Sub Form_Load()    Show 0    Do While a = False        DoEvents    LoopEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    a = TrueEnd Sub