Hi BJ,
keine Ahnung ob Dir das hilft, probieren kann ich nicht
in Schleifen, zB:
----
Do 'so nicht, da volle Auslastung
testen
Loop until bedingung
----
wohl besser:
----
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
Do
testen
If bedingung then Exit Do
Sleep 50 '1/20 sec
Loop
----
Oder jemand hat noch andre Ideen 
lg Nancy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP