
   End With
   With m_tBI.bmiColors(lStartIndex + 6)
      .rgbRed = &amp;H80: .rgbGreen = 0: .rgbBlue = &amp;H80
   End With
   With m_tBI.bmiColors(lStartIndex + 7)
      .rgbRed = 0: .rgbGreen = &amp;H80: .rgbBlue = &amp;H80
   End With
   With m_tBI.bmiColors(lStartIndex + 8)
      .rgbRed = &amp;HC0: .rgbGreen = &amp;HC0: .rgbBlue = &amp;HC0
   End With

End Sub
Private Sub p16ColourHigh8(ByVal lStartIndex As Long)
   lStartIndex = lStartIndex - 9
   With m_tBI.bmiColors(lStartIndex + 9)
      .rgbRed