Bitoperation in VB

[Christian (Gast)]

Hallo,

ich möchte die einzelnen Bits eines Bytes auslesen und in einer 
Boolvariablen ablegen. Folgende Funktion habe ich gemacht:

Public Function GetBit(ByVal Expression As Byte, ByVal BitNum As Byte) As Boolean
        GetBit = CBool(Expression And 2 ^ BitNum)    
End Function

For i = 0 To 7
            NextBit = GetBit(224, i)
            Label1.Text = Label1.Text & NextBit
Next

In dem Label1 kommen die Werte immer doppelt an: für 224 habe ich als 
Ausgabe
00000111 00000111. Eigentlich müsste doch nur einmal 00000111 
rauskommen, oder?

Vielen Dank für eure Hilfe!

Gruß, Christian

[Christian (Gast)]

Oh halt!

Es hat sich schon erledigt! Das ganze war in einer dummen Schleife 
eingebaut!

Es funktioniert jetzt :)