yo uso esta funcion para saber el alfa, rojo,verde y azul de cada color pero el tema de brillo y contraste ni idea.
Sub GetARGB(Color As Int) As Int()
Dim res(4) As Int
res(0) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff000000), 24) 'Alpha
res(1) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff0000), 16) 'Rojo
res(2) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff00), 8) 'Verde
res(3) = Bit.And(Color, 0xff) 'Azul
Return res
End Sub