[VB6] Chiudere il programma su errore

[Brainjar]

Allora, come ti suggerisce raffaeu, dovresti scaricare TUTTE le forms
della tua applicazione coun Unload <NomeForm>.
Se hai un solo form, dovrebbe andar bene quanto ti dice raffaeu.
Se hai provato il suo suggerimento e continua a rimanere aperta la
tua applicazione ha più forms e qualcuno resta attivo.

prova con un qualcosa del genere :

GestoreErrori:

Dim oForm As Form

If Err.Number = 70 Then
    'Accesso Negato
    For Each oForm In Forms
        Unload oForm
    Next oForm
    End ' E' (forse) di troppo, ma non fa male.
End If

Ciao,