h m_tBI.bmiColors(lStartIndex + 14)
      .rgbRed = &amp;HFF: .rgbGreen = 0: .rgbBlue = &amp;HFF
   End With
   With m_tBI.bmiColors(lStartIndex + 15)
      .rgbRed = 0: .rgbGreen = &amp;HFF: .rgbBlue = &amp;HFF
   End With
   With m_tBI.bmiColors(lStartIndex + 16)
      .rgbRed = &amp;HFF: .rgbGreen = &amp;HFF: .rgbBlue = &amp;HFF
   End With
End Sub
Private Sub Create16Colour()
   ' Standard EGA style 16 colour palette:
   p16ColourLow8 1
   p16ColourHigh8 9
End Sub



Private Sub Class_Terminate()
    Cl