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