Sub
Private Sub p16ColourLow8(ByVal lStartIndex As Long)
   lStartIndex = lStartIndex - 1
   With m_tBI.bmiColors(lStartIndex + 2)
      .rgbRed = &amp;H80: .rgbGreen = 0: .rgbBlue = 0
   End With
   With m_tBI.bmiColors(lStartIndex + 3)
      .rgbRed = 0: .rgbGreen = &amp;H80: .rgbBlue = 0
   End With
   With m_tBI.bmiColors(lStartIndex + 4)
      .rgbRed = &amp;H80: .rgbGreen = &amp;H80: .rgbBlue = 0
   End With
   With m_tBI.bmiColors(lStartIndex + 5)
      .rgbRed = 0: .rgbGreen = 0: .rgbBlue = &amp;H80