TranslateColor
将OLE颜色值转换为普通RGB颜色，在此过程中解析对系统调色板的任何引用。
语法：TranslateColor( ColorValue [ , hPalettePtr ] )
- ColorValue
- 必需 Long OLE颜色值，要进行转换。
- hPalettePtr
- 可选 LongPtr，用于转换的调色板句柄。默认为0，选择默认系统调色板。
OLE颜色格式编码字面RGB值或Windows系统调色板中的索引（例如&H80000012，按钮表面的颜色）。TranslateColor返回对应的普通RGB Long，适合传给期望真正颜色值而非系统调色板引用的API和属性。
示例
本示例将OLE系统颜色转换为其当前RGB值。
vb
Dim OleColor As Long
Dim RgbColor As Long
OleColor = &H80000012 ' COLOR_BTNFACE — the button face colour.
RgbColor = TranslateColor(OleColor)