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


How ChatGPT is Changing the Game
The AI-powered tool ChatGPT has taken the computing world by storm, receiving high praise from experts like Brex design lead, Pietro Schirano. Developed by OpenAI,