codice:
Exit Sub
GestoreErrori:

If Err.Number = 70 Then
'Accesso Negato
Unload Me
End --> Questo end mi sembra di troppo ...
End If