This property specifies an alternative (blinking) value the property assumes when source is within the specified Row's interval and the Blink property is set to True. The next script contains an example of using this property.

Sub CommandButton1_Click()
  Dim Color
  ' Picks a color
  Application.ShowPickColor Color, 0, 100, 100
  Screen.Item("Rectangle1").Links.Item("ForegroundColor")._
    Item(1).BlinkValue = Color
End Sub