dim bytevar as byte
dim bitnr as byte
for bitnr = 0 to 7
ByteVar.BitNr = 0
next

klaro ?