Not tested, but this should work for converting a BGR to RGB:
VB Code:
Public Function BGRtoRGB(Byval BGR as Long) As Long Dim R As Byte, G As Byte, B As Byte R = BGR And &HFF G = BGR And &HFF00 B = BGR And &HFF0000 BGRtoRGB = RGB(R,G,B) End Function




Reply With Quote