Maritza
13 de Julio del 2004

Espero me puedan ayudar, no se como hacerle para desactivar el bot贸n cerrar de una forma MDIForm ya que necesito desactivarlo y no se como, es el bot贸n que aparece en la parte superior derecha.

Gracias y espero alguien me pueda ayudar

CEDE?
13 de Julio del 2004

Hola Maritza!
tengo la solucion a tu problema, para esto necesitas
tres funciones API las que tendras que poner en un
modulo junto con unas constantes de la manera
siguiente

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0

despues de que pongas esto en el modulo en el formulario pones el siguiente codigo

Private Sub MDIForm_Load()

Dim hMenu As Long

hMenu = GetSystemMenu(Me.hwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (Me.hwnd)
End If

End Sub

avisame si te sirvio
bye!