如何使窗口的关闭按钮灰掉不可用？

[拼命三朗]

如何使窗口或MDI窗口的按钮不可用，变成灰色？哪个API可实现？

[拼命三朗]

将窗口标题栏上的X按钮灰掉

[MicrosoftSQL]

模块：
#Region " 使关闭按钮不能用的函数及相关常数、方法"
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Const MF_REMOVE As Short = &H1000S
Private Const SC_CLOSE As Short = &HF060S
Public Sub Disabled(ByRef a As Object, ByRef b As Object)
Dim hMenu As Object
Dim hwndMenu As Integer
Dim c As Integer
hMenu = GetSystemMenu(a, 0)
RemoveMenu(hMenu, SC_CLOSE, MF_REMOVE)
End Sub
#End Region

[MicrosoftSQL]

调用：在form_load中加入如下代码

Dim a As String = CStr(Me.Handle.ToInt32)
Dim b As Short = 0
Disabled(a, b)