Bloquear Boton Cerrar de las Ventanas

[FrankLizardo]

Hola a todos nuevamente, aqui tengo un problema consegui bloquear el boton X de las ventanas Modal(Junto con el Efecto osea deja de iluminarse img 2) pero en una Ventana MDIChild no funciona Correctamente ya que el efecto sigue Activado (img 1)



Aqui el Link de mi proyecto para que lo puedan ver

http://www.4shared.com/rar/YokZEIAw/Proyecto_Bloquear_X.html

Lo que quiero es que se quite el efecto y al activar se habilite junto con el efecto

a por si las dudas utilizo Windows 7  64 Bits

[E N T E R]

Hola, proba con este a mi me funciona muy bien.

Código: (VB) [Seleccionar]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Sub MDIForm_Load()
    Dim hSysmenu As Long
    hSysmenu = GetSystemMenu(Me.hWnd, 0)
    RemoveMenu hSysmenu, 6, &H400&
End Sub

'y para evitar que el usuario cierre el form con las teclas Alt-F4:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then Cancel = True
End Sub

Private Sub Command1_Click()
   
    Dim hSysmenu As Long
    hSysmenu = GetSystemMenu(Me.hWnd, 1)
    RemoveMenu hSysmenu, 6, &H400&
   
    ' Este no se como solucionar 79137913 me dio la idea de ocultar y mostrar el form por que lo que pasa es no se refresca el control, o sino otra opcion es redimendionar el tamaño del form y ahi ya se pone bien.

    Me.Hide
    Me.Show
 
End Sub




[FrankLizardo]

Si Funciona bueno no es mucho codigo solo tendria que agregar el hide y el show naaa mas,  bueno gracias