Unload將 窗 體 卸 載 ， 但 并 不 終 止 目 前 仍 然 在 執 行 的 事 件 ， 只 有 當 所 有 事 件 程 序 都 結 束 ， 程 序 才 最 終 結 束 。 而 你 的 While...Wend循 環 是 死 循 環 ， 永 遠 也 不 會 結 束 。 你 有 兩 個 辦 法 ： 
    1、 如 果 你 執 行 Unload Me是 為 了 終 止 整 個 程 序 ， 可 以 使 用 End語 句 代 替 Unload Me。 
    2、 你 可 以 修 改 循 環 的 終 止 條 件 ， 比 如 設 置 一 個 全 局 變 量 bStop， 修 改 Form_Load為 ： 
    bStop = False 
    While Not bStop 
    ... 
    DoEvents 
    Wend 
    修 改 MouseDown事 件 為 ： 
    bStop = True 
    Unload Me 
    這 樣 你 在 執 行 Unload Me時 ， bStop為 True， While循 環 條 件 不 滿 足 將 退 出 ， 你 的 程 序 就 可 以 正 常 退 出 了 。 
<END>