Die @Stefan_Z - Methode könnte man so machen:
Code:
Dim Bit1_1 As Bit
Dim Bit1_2 As Bit
Dim Bit1_3 As Bit
Dim Bit1_4 As Bit
Dim Bit1_5 As Bit
Dim Bit1_6 As Bit
Dim Bit1_7 As Bit
Dim Bit1_8 As Bit

Dim Bit2_1 As Bit
Dim Bit2_2 As Bit
Dim Bit2_3 As Bit
Dim Bit2_4 As Bit
Dim Bit2_5 As Bit
Dim Bit2_6 As Bit
Dim Bit2_7 As Bit
Dim Bit2_8 As Bit

Dim Bit3_1 As Bit
Dim Bit3_2 As Bit
Dim Bit3_3 As Bit
Dim Bit3_4 As Bit
Dim Bit3_5 As Bit
Dim Bit3_6 As Bit
Dim Bit3_7 As Bit
Dim Bit3_8 As Bit

Dim Byte1 As Byte At Bit1_1 Overlay
Dim Byte2 As Byte At Bit2_1 Overlay
Dim Byte3 As Byte At Bit3_1 Overlay
Es muss aber garnicht so geschlossen hintereinander gedimmt werden.