TranslateColor – Convert a VB color or system color constant

Private Declare Function OleTranslateColor Lib "OLEPRO32.DLL" (ByVal OLE_COLOR _    As Long, ByVal HPALETTE As Long, pccolorref As Long) As Long' convert a VB color constant to a COLORREF' accepts both RGB() values and system color constantsFunction TranslateColor(ByVal clr As Long) As Long    If OleTranslateColor(clr, 0, TranslateColor) Then         TranslateColor = -1    End IfEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: