Dim a As Byte '// Dim a As Byte
        a = B("10000000") '// A = &B10000000
        a = a >> 3 '// Shift A, right, 3
        Debug.WriteLine(Convert.ToString(a, 2).PadLeft(8, "0"c)) ''>>  00010000"
        '// ------------- ' ist dann "00010000"
 
        a = a Or B("00000001") '// A = A or &B00000001
        Debug.WriteLine(Convert.ToString(a, 2).PadLeft(8, "0"c)) ''>>  00010001"
        '--- ' Ist dann "00010001"
 
        a = a Or B("00000100")
        '//Set A.2 ---------------------- 
        Debug.WriteLine(Convert.ToString(a, 2).PadLeft(8, "0"c)) ''>>  00010101"
        ' Setze Bit 2 von A ist dann: "00010101"
 
        a = a Xor B("00000001")
        '//Reset A.0 ------------------- 
        Debug.WriteLine(Convert.ToString(a, 2).PadLeft(8, "0"c)) ''>>  00010100"
        ' ist dann "00010100"