Kontakt
DSVGO
For i = 1 To 10000 '... If i Mod 10 = 0 Then DoEvents Next iWird DoEvents nur aufgerufen, um eventuell vorhandene Maus- und Tastatur-Ereignisse abarbeiten zu lassen, sollte man mit der API-Funktion GetInputState abfragen, ob überhaupt solche Ereignisse vorliegen:
'Deklarationsteil: Declare Function GetInputState Lib "user32" () As Long 'Beispiel: For i = 1 To 10000 '... If GetInputState() Then DoEvents Next i
© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/doevents.htm