roperty
         Else
            lER = Abs(Red - .Red)
            lEB = Abs(Blue - .Blue)
            lEG = Abs(Green - .Green)
            If (lER + lEB + lEG &lt; lMinER + lMinEB + lMinEG) Then
               lMinER = lER
               lMinEB = lEB
               lMinEG = lEG
               lMinIndex = i
               'Debug.Print i, lER, lEB, lEG
            End If
         End If
      End With
   Next i
   
   
   ClosestIndex = lMinIndex
   
   
End Property

Public Property Get Count() As Long
  