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) ' LSI_THREAD_TICKS
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.