dimensionierte Bits in einem Byte speichern

[mat-sche]

Hallo,

PicNick ist mal wieder mein Held! So kann man es natürlich auch machen,

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

obwohl ich habe es gestern schon so in der Art probiert.
Und nun weiß ich auch wo mein Fehler lag:
ich hatte zu erst "Dim Byte1 As Byte At Bit1_1 Overlay " und dann die Bits dimensioniert und bekam somit eine Fehlermeldung. Ich hätte das Overlay am Schluss machen sollen  

Aber hier noch eine weitere Möglichkeit, die mir eben noch eingefallen ist:

Dim Hd As Byte 
Bit1 Alias Hd.1

Ok... dann kann es nun schön weiter gehen im Text!

Danke Euch allen