簡單一句話PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsCancel=-1EndSub