Mensajes

Para q se complican la vida con modulos, esto es muxo mas facil y ademas la X se ve igual

Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
           If UnloadMode <> 1 Then
        Cancel = True
       End If
End Sub

Bye

Yo lo hago pero me Debes esperar, ya q saldra para Abril negro


bye ( No es difícil )