Oftmals (insb. bei Progressbars) hat man das Problem, dass man feststellen will, ob der Debugger an ist und den Progressbar dann eben nicht anzeigt.
dies geht so:
| Dim start |
| start = Getthreadinfo(6) |
| Stop |
| If Getthreadinfo(6) - start > 100 Then IsDebug = True |
Es erfolgt eine Zeitmessung vor und nach dem Stop. Wenn der Debugger an ist, stoppt er und die Zeit läuft weiter. Da man es (normalerweise) nicht schafft, innerhalb von 100ms auf "continue" zu drücken, kann man so feststellen, ob der Debugger an ist oder nicht.