GefFillFormat.ForeColor (read-only property)

Gets the color format of the foreground color.
Syntax: Set GefColorFormat = object.ForeColor
Description: This is the main color of the property. For lines and solid fills, this is the color.


Sub FillFormat_ForeColor()
    Dim oCimObj As GefObject
    Dim oCimFillFmt As GefFillFormat
    Set oCimObj = CimGetObject
    Set oCimFillFmt = oCimObj.Fill
    If Not oCimFillFmt Is Nothing Then
        oCimFillFmt.ForeColor.RGB = &HBB&
    End If
    CimGetScreen.Refresh False
End Sub