关闭窗口的询问代码：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        Cancel = True  ' 取消通过控制菜单关闭窗体的操作
    End If
End Sub