VB6 felhantering...

Sitter med ett "gammalt" projekt som jag försöker få att fungera, skrivet i VB6.

Det är två ActiveX komponenter en "server-dll" och en ocx.

En grej som jag blev fundersam över är felhanteringen. Server-dll:en är kodad så att alla fel genererar en egen kodad "Err.Raise". Jag lyckas dock inte "fånga" den i ocx:en utan server-dll:en "smäller" och allt stannar. Vad är tanken här, kan inte få det att gå ihop hur det är tänkt att fungera riktigt...?

Typ så här då:

' SERVER-DLL
Private Sub HereComesAnError()
    On Error Goto ErrHandler

    Dim n As Single

    ' Orsaka "division by zero"
    n = 10 / 0

    Exit Sub
ErrHandler:
    RaiseWExInfo "HereComesAnError"
End Sub

Private Function RaiseWExInfo(ByVal strCaller As String)
    Err.Raise ErrNumber, strCaller, Err.Description
End Function

I ocx:en är det vanlig felhantering med "on error goto...". Problemet är alltså att jag i ocx:en vill presentera felet som sker i server-dll:en och att server-dll:en inte ska "dö".

Som sagt, missar jag "tänket" här eller måste det kodas om så server-dll:en returnerar en sträng bara som jag får hantera i ocx:en utan att köra Err.Raise i server-dll:en?

Hoppas ni hänger med...?!?

/Anders