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. Example:

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