' in einem Modul
Public Sub AppExit()
  Static bWorking As Boolean
  If bWorking Then Exit Sub
 
  Dim oForm As Form
  For Each oForm In VB.Forms
    Unload oForm
  Next 
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de