gbGreen = &amp;HFF: .rgbBlue = 0
   End With
   With m_tPal(lStartIndex + 13)
      .rgbRed = 0: .rgbGreen = 0: .rgbBlue = &amp;HFF
   End With
   With m_tPal(lStartIndex + 14)
      .rgbRed = &amp;HFF: .rgbGreen = 0: .rgbBlue = &amp;HFF
   End With
   With m_tPal(lStartIndex + 15)
      .rgbRed = 0: .rgbGreen = &amp;HFF: .rgbBlue = &amp;HFF
   End With
   With m_tPal(lStartIndex + 16)
      .rgbRed = &amp;HFF: .rgbGreen = &amp;HFF: .rgbBlue = &amp;HFF
   End With
End Sub
Public Sub Create16Colour()
   ' St