When this property is set to True, the connected property alternates periodically between values of OnValue and BlinkOnValue properties, in case the source returns True. Example:

Sub BlinkOn_Change()
  On Error Resume Next
  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 BlinkOn from " &_
      Bind.BlinkOn & " to "_ & Value
    Bind.BlinkOn = Value
  End If
End Sub