Private Sub Form_Load()

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim frForm As Form
For Each frForm In Forms
Unload frForm
Next

End
End Sub
quindi così!(ovviamente se la mia applicazione usa solo un form....oppure in ogni form se do la possibilità di chiudere l'applicazione in ogni form....oppure nell'ultimo form....giusto?)