10/08/2006, 08:07
|
| | | Fecha de Ingreso: julio-2003
Mensajes: 164
Antigüedad: 21 años, 9 meses Puntos: 0 | |
¿Cómo puedo hacer eso?
En el botón de salir sólo he puesto
Form_Unload (1)
y en la cabecera del form unload:
Private Sub Form_Unload(Cancel As Integer)
If FormularioActivo("frmAlumno") Or FormularioActivo("frmEmpresa") Then
MsgBox "Cierre todas las ventanas antes de cerrar la aplicación", vbExclamation
Exit Sub
Else
Unload Me
Exit Sub
End If
End Sub
pero me sigue pasando lo mismo |