Sub Forms_angezeigt()
' Diese Prozedur prüft, ob eine angezeigte Form nicht mehr gebraucht wird
  Dim I As Integer
 
  On Error GoTo Forms_angezeigt_Fehler
  I = 1
  Do While I < Forms.Count
      Unload Forms(I)
      I = I + 1
  Loop
  Exit Sub
 
Forms_angezeigt_Fehler:
  Msgbox "Fehler beim Entladen der Form " & Forms(I).Caption & " aufgetreten!" _
    & Err
End Sub