10/08/2006, 08:20
|
| | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses Puntos: 2 | |
Prueba de esta forma
En el botón de salir pon solo
UNLOAD ME
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
cancel = 1 'Prueba con cero si no te funca asi
Else
END 'es mucho mejor terminar asi un programa
End If
End Sub |