Es kommt sogar noch besser, der Index der Byte-Variablen kann ebenfalls als Variable geführt werden:

Code:
Do

Dim Bytevar as Byte
Dim Index as Byte

For Index=0 to 7
 Toggle Bytevar.index
 Waitms 500
Next Index

Loop
Viele Grüße

Torsten