IPicInfo_
In Class PicBMP 126 Private Property Get IPicInfo_MaxColors() As Variant
 127 
    Case branch(es) missing for Enum - bmpUnknown
 128 Select Case BMPType
 129     Case bmpCoreHeader
 130         IPicInfo_MaxColors = 2 ^ CoreHeader.bcBitCount
 131     Case bmpInfoHeader
 132         IPicInfo_MaxColors = 2 ^ InfoHeader.biBitCount
 133 End Select
 134 
 135 
 136 End Property
 137
 Case branch(es) missing for Enum - bmpUnknown
 128 Select Case BMPType
 129     Case bmpCoreHeader
 130         IPicInfo_MaxColors = 2 ^ CoreHeader.bcBitCount
 131     Case bmpInfoHeader
 132         IPicInfo_MaxColors = 2 ^ InfoHeader.biBitCount
 133 End Select
 134 
 135 
 136 End Property
 137