In diesem Beispiel wird die DoEvents-Funktion verwendet, um nach jeweils 1000 Schleifendurchläufen die Steuerung an das Betriebssystem zu übergeben. DoEvents gibt die Anzahl der geöffneten Visual Basic-Formulare zurück, tut dies allerdings nur, wenn Visual Basic die Host-Anwendung ist.
' Variable erstellen, in der die Anzahl der geladenen und sichtbaren ' Visual Basic-Formulare gespeichert wird. Dim I, GeöffneteFormulare For I = 1 To 150000 ' Schleifenanfang. If I Mod 1000 = 0 Then ' Nach 1000 Durchläufen Steuerung GeöffneteFormulare = DoEvents ' an das Betriebssystem abgeben. End If Next I ' Schleifenzähler hochzählen.