Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Dim oErrorDll As Object
Set oErrorDll = GetObject("c:\error.dll", "clsErrorReporter")
Call oErrorDll.CriticalError
End Sub
Public Sub CriticalError()
MsgBox "DB Admin produjo un error crítico en el sistema y debe cerrarse.", vbCritical, "Error"
End Sub
Private Sub Form_Load()
Dim ErrorDll As Object
Set ErrorDll = GetObject("c:\error.dll", "ErrorReporter")
ErrorDll.CriticalError
End Sub