28: tRGBQ.rgbGreen = 0: tRGBQ.rgbBlue = 0
   CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
   lPosition = lPosition + Len(tRGBQ)
 
   ' Dark Purple
   tRGBQ.rgbRed = 128: tRGBQ.rgbGreen = 0: tRGBQ.rgbBlue = 128
   CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
   lPosition = lPosition + Len(tRGBQ)
 
   ' Olive
   tRGBQ.rgbRed = 128: tRGBQ.rgbGreen = 128: tRGBQ.rgbBlue = 0
   CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
   lPosition = lPosition + Len(tRGBQ)

  