| Gets and Sets the blink rate of the animation element. | |
| Syntax: | GefBlinkRateEnum =
object.BlinkRate object.BlinkRate = GefBlinkRateEnum |
| Description: | Example: Sub ExprListAnimElement_BlinkRate() Dim oCimExprListAnim As
GefExprListAnim Dim oCimExprListAnimElmt As
GefExprListAnimElement Set oCimExprListAnim =
CimGetObject.ExprListAnim Set oCimExprListAnimElmt =
oCimExprListAnim.Add oCimExprListAnimElmt.Expression ="1" oCimExprListAnimElmt.AnimatesBlink =
True oCimExprListAnimElmt.BlinkRate =
gefBlinkRate1 MsgBox "The blink rate is " &
oCimExprListAnimElmt.BlinkRate CimGetScreen.Refresh False End Sub |