[VB6] Classi e gestione efficiente degli errori al loro interno

[Templare]

On Error GoTo errorHandler e non On Err GoTo errorHandler.
In più se vuoi far vedere la message box sostituisci
msg = "Errore numero: " & Str(Err.Number) & Chr(13) & "Generato da " & Err.Source & Chr(13) & "Tipo: " & Err.Description
con
MsgBox "Errore numero: " & Str(Err.Number) & Chr(13) & "Generato da " & Err.Source & Chr(13) & "Tipo: " & Err.Description

[boggio]

Perfetto!Grazie 1000!
Funziona bene come vorrei!

Bisogna lasciare spuntata la voce "interrompi ad ogni errore non gestito",altrimenti si arresta all'interno della classe!

A presto