Private WithEvents m_ExceptionHandler As cExceptionHandler

Private Sub m_ExceptionHandler_ExceptionOccured(eiExceptionInfo As _
  cExceptionInfo)
 
  Dim Cancel As Integer
  Cancel = 0
 
  glLog.Error MyName & ".m_ExceptionHandler_ExceptionOccured", _
        "Address:  " & eiExceptionInfo.Address & vbNewLine & "Code:  " & _
        eiExceptionInfo.Code
 
  Do
    Call MsgBox(getResString(gc_res_Application_Shutdown), vbCritical, _
      getResString(gc_res_Error))
    ProgramTerminate Cancel
  Loop Until Cancel = 0
 
End Sub

Gruß
Dirk

--
?Get it right the first time