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. The next script contains an example of using this property.

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