ttribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Type RGB
   Red As Byte
   Green As Byte
   Blue As Byte
End Type
Private m_tPal() As RGB
Private m_iPalette As Long

Public Property Get ClosestIndex( _
      ByVal Red As Long, _
      ByVal Green As Long, _
      ByVal Blue As Long _
   ) As Long
Dim i As Long
Dim lER As Single, lEB As Single, lEG As Single
Dim lMinER As Single, lMinEB As Single, lMinEG As Single
Dim lMinIndex As Long
Dim hO As Single, sO As Single, l