 = &amp;HC0: .rgbBlue = &amp;HC0
   End With

End Sub
Private Sub p16ColourHigh8(ByVal lStartIndex As Long)
   lStartIndex = lStartIndex - 9
   With m_tPal(lStartIndex + 9)
      .rgbRed = &amp;H80: .rgbGreen = &amp;H80: .rgbBlue = &amp;H80
   End With
   With m_tPal(lStartIndex + 10)
      .rgbRed = &amp;HFF: .rgbGreen = 0: .rgbBlue = 0
   End With
   With m_tPal(lStartIndex + 11)
      .rgbRed = 0: .rgbGreen = &amp;HFF: .rgbBlue = 0
   End With
   With m_tPal(lStartIndex + 12)
      .rgbRed = &amp;HFF: .r