Ich verstehe den Sinn des Codes leider auch nicht.

Do -----> unendliche Schleife
For I = 1 To 7 -------> Schleife von 1 bis 7
I = Rnd(6) -------> Zufallszahl mit gleicher Variable, wie Schleife
Portc.i = 0 --------> Port ausschalten
Waitms 50 --------> 0,05 Sekunden warten
Portc.i = 1 --------> Port einschalten
Next I
Loop

schreib einfach mal, was das bewirken soll.[/i]