GefColorFormat.RGB (property)

Gets and sets the RGB value of the color, if the Type of the GefColorFormat is gefColorRGB.
Syntax: VARIANT = object.RGB
object.RGB = VARIANT
Description: When set, also sets the Type to gefColorRGB.

The format of the RGB value is &hBBGGRR. Where RR,GG, and BB are the two digit hex values(from &h00 to &hFF) for the red, green, and blue components of the color you want. You can also use the formula (red + green * 256 + blue * 256 * 256).


Sub GefButtonFormat_RGB()
    Dim oCimObj As GefObject
    Dim oCimBtnFmt As GefButtonFormat
    Dim oCimColorFmt As GefColorFormat
    Set oCimObj = CimGetObject
    Set oCimBtnFmt = oCimObj.ButtonFormat
    If Not oCimBtnFmt Is Nothing Then
        Set oCimColorFmt = oCimBtnFmt.FaceColor
        If Not oCimColorFmt Is Nothing Then
            oCimColorFormat.RGB = &HBB& 'red
        End If
    End If
End Sub