How to Convert OLE colors to RGB colors

Home » Miscellaneous » How to Convert OLE colors to RGB colors

Posted on September 13, 2011

'Miscellaneous - How to Convert OLE colors to RGB colors
'convert colors like &H00C0C000& to RGB values
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, _
    ByVal palet As Long, col As Long) As Long
 
Private Sub Form_Load()
    Dim RealColor As Long
    'Convert OLE colors to RGB colors
    TranslateColor Me.BackColor, 0, RealColor
    'show the result
    MsgBox "The backcolor of this form is R=" & CStr(RealColor And &HFF&) & " G=" & _
        CStr((RealColor And &HFF00&) / 2 ^ 8) & " B=" & CStr((RealColor And &HFF0000) / 2 ^ 16)
End Sub