Visual Basic - PROPIEDAD DE VENTANA PARA QUE NO SE CIERRE CON X

HOLA AMIGOS ESPERO PUEDAN AYUDARME ALGUNA PROPIEDAD EN EL QUE PUEDA MOSTRAR LA X DE CERRAR PERO QUE ESTE DESABILIDATA OSEA SOLO DE FINTA PERO QUE ESTE ACTIVA QUE NO CIERRE LA VENTANA SI NO QUE OBLIGATORIAMENTE LO CIERRE CON EL BOTON SALIR...PERO RECUERDEN NO QUIERO DESAPARECER LA BARRA DE ARRIBA SOLO DESACTIVAR LA X SI SE PUEDE LO HE VISTO EN OTRAS APLICACIONES....GRACIAS

Buenos días.

Para deshabilitar la "x", en el evento _Form_Load del formulario principal:

RemoveCancelMenuItem Me

En un módulo .bas:

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

Public Sub RemoveCancelMenuItem(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hWnd, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Espero que te sirva.

Un saludo

En el evento unload pones cancel = true y listo ya no se cierra.