This property specifies the value the property assumes when the source is within the specified Row's interval. 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).Value = Color
End Sub