怎么让关闭按钮失效

如何让关闭按钮失效？
除了自己做最大化最小化按钮之外有没有其他方法了呢？
谢谢。

[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then '屏蔽窗口的关闭按钮和窗口左上角菜单的 "关闭 "指令
Cancel = True
End If
End Sub