          ((iG = 0) Or (iG = &amp;HFF)) And _
               ((iB = 0) Or (iB = &amp;HFF)) _
               ) Then
               tRGBQ.rgbBlue = iB
               CopyMemory m_tBits(iItem).bBits(lPosition), tRGBQ, Len(tRGBQ)
               lPosition = lPosition + Len(tRGBQ)
            End If
         Next iB
      Next iG
   Next iR
End Sub

Private Sub set16ColorPalette(ByVal iItem As Long, ByRef lPosition As Long)
Dim tRGBQ As RGBQUAD
   
   ' Black
   tRGBQ.rgbRed = 0: tRGBQ.rgbGreen = 0: tRGBQ.rgbBlue