This property specifies an alternative value the property assumes periodically when source's expression returns True and the BlinkOn property is set to True. The next script contains an example of using this property.

Sub BlinkOnValue_Click()
  On Error Resume Next
  Dim Value
  If Application.ShowPickColor_
    (Value, ForegroundColor, 400, 300) Then
    Dim Bind
    Set Bind = Screen.Item("Rectangle1").Links._
      Item("ForegroundColor")
    If Bind Is Nothing Then
      MsgBox "Rectangle1 has no link."
    Else
      MsgBox "Rectangle1 is linked to " & Bind.Source & "'"
      MsgBox "Changing BlinkOnValue from " &_
        Bind.BlinkOnValue & " to " & Value
      Bind.BlinkOnValue = Value
    End If
    ForegroundColor = Value
  End If
End Sub