' alle geladenen Formen sauber entladen
Public Sub AppExit()
  Static bWorking As Boolean
  If bWorking Then Exit Sub
 
  Dim oForm As Form
  bWorking = True
  For Each oForm In VB.Forms  
    Unload oForm
  Next 
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de