Exeperimente mit usb Code für ampelschaltung

Lenrnpaket Experimente mit USB von Franzis-Verlag
Enthält einen VB 6 Code für eine Ampelschasltung der
ist unvollständig.
Wer kennt den vollständigen Code?