Besten Dank für die schnelle Antwort.

Das Problem äussert sich folgendermassen: Der Motor stellt bei erreichtem Widerstandswert nicht ab. Der Befehl ClearAllDigital() wird also nicht erreicht. Das Programm schafft es nicht aus der Schlaufe heraus. Das mit dem Aufhängen könnte gut sein. Was ist DoEvents() für eine Funktion? Die muss ich noch deklarieren.