两个小问题

Question

1）如何让窗体的关闭按钮无效？
2)如何让button变灰，是个什么属性？
我记得以前用过，现在突然想不起来了，大家帮帮忙吧，谢谢

Answer 1

1\Private Sub MDIForm_Load()
    Dim hwndMenu As Long
    Dim c As Long
    hwndMenu = GetSystemMenu(Me.hwnd, 0)
    
    c = GetMenuItemCount(hwndMenu)
    
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
    
    c = GetMenuItemCount(hwndMenu)
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
    
End Sub以下部分为模块：
'第一种方法
Public Sub DisableX(Frm As Form)
    Dim hMenu As Long, nCount As Long
    hMenu = GetSystemMenu(Frm.hwnd, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
    DrawMenuBar Frm.hwnd
End Sub
2、button.enabled=true/false

Answer 2

1\
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
2\
Command1.Enabled=False