>240(251)
環境がおかしいと思われ。
次のようなコードだけ書いたフォームを作って実行すると普通の操作では閉じないはず。
(タスクマネージャ等でしか終われない)

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

これがうまくいかなきゃ話しが進まない。
それと休止状態は無視？　こっちは多分介入出来ない。