| Gets the blink fill format to be applied if this element is used. | |
| Syntax: | Set GefFillFormat = object.GetBlinkFill ( Create ) |
| Parameters: |
Optional Create As Boolean
-
|
| Description: | The format is only applied if the
AnimatesBlinkFill property is true. Example: Sub ExprListAnimElement_GetBlinkFill() Dim oCimExprListAnim As
GefExprListAnim Dim oCimExprListAnimElmt As
GefExprListAnimElement Dim oCimFillFmt As
GefFillFormat Set oCimExprListAnim =
CimGetObject.ExprListAnim Set oCimExprListAnimElmt =
oCimExprListAnim.Add oCimExprListAnimElmt.Expression ="1" oCimExprListAnimElmt.AnimatesBlinkFill
= True Set oCimFillFmt =
oCimExprListAnimElmt.GetBlinkFill(True) oCimFillFmt.Solid oCimFillFmt.ForeColor.RGB =
&HBB& 'red CimGetScreen.Refresh False End Sub |