IndexOfColorArray.vb

Function IndexOfColorArray(colorArray As Color(), pixelColor As Color) As Integer
    Dim colorIndex As Integer = -1
    For i = 0 To colorArray.Length - 1
        If pixelColor.R = colorArray(i).R And
            pixelColor.G = colorArray(i).G And
            pixelColor.B = colorArray(i).B And
            pixelColor.A = colorArray(i).A Then
            colorIndex = i
            Exit For
        End If
    Next
    Return colorIndex
End Function