RE:Desabilitar el boton cerrer de un formulario?
Si lo que quieres es tener el boton x en gris y que no se pueda pulsar sobre el prueba el siguiente codigo, el unico problema es el ALT+F4 sigue funcionando, pero bueno....
Public formu As Form
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
'Y para deshabilitar el botón Cerrar eliminamos la opción Cerrar del menú :
Public Sub Nobotoncerrar()
Dim hMenu As Long
Dim menuItemCount As Long
Dim formulario As Form
Set formulario = formu
'Obtenemos un handle al menú de sistema del formulario
hMenu = GetSystemMenu(formulario.hwnd, 0)
If hMenu Then
'Obtenemos el número de elementos del menú
menuItemCount = GetMenuItemCount(hMenu)
'Eliminamos el elemento Cerrar, que es el último
'Los elemento empiezan a numerarse en cero por lo que el
'último es menuItemCount - 1
Call RemoveMenu(hMenu, menuItemCount - 1, _
MF_REMOVE Or MF_BYPOSITION)
'Eliminamos la barra de separación que hay justo antes de la opción Cerrar
Call RemoveMenu(hMenu, menuItemCount - 2, _