<code><font color=green>' Allgemein-Teil der Form</font>
Dim Abbruch As Boolean
 
Private Sub BtAbort_Click()
  Abbruch = True
End Sub
 
Private Sub Zweihunderttausendste_Subroutine(variablen As blabla)
  Abbruch = False
  oeffne hunderttausenddateien
  For schleife = 1 To ganzschoenviel
    call machganzaufregendesachendielangedauern()
    DoEvents
    If Abbruch Then Exit For
  Next schleife
 
  If Abbruch Then
    <font color=green>' Jetzt Form schliessen</font>
    Unload Me
  End If  
  Exit sub
End Sub</code>