126 Private Property Get IPicInfo_MaxColors() As Variant
127
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