Struct / Union bzw. Type VB

Private Type DEVMODE

    dmDeviceName As String * CCHDEVICENAME

    dmPelsHeight As Byte

    dmDisplayFlags As Byte

    dmDisplayFrequency As Byte

End Type

struct {

   unsigned bStatus_1:1; // 1 Bit für bStatus_1

   unsigned bStatus_2:1; // 1 Bit für bStatus_2

   unsigned bNochNBit:1; // Und hier noch mal ein Bit

   unsigned b2Bits:2;    // Dieses Feld ist 2 Bits breit

   // All das hat in einer einzigen Byte-Variable Platz.

   // die 3 verbleibenden Bits bleiben ungenutzt

} x;