<< Click to Display Table of Contents >>
BlinkOff |
When this property is set to True, the connected property alternates periodically between values of OffValue and BlinkOffValue properties, in case the source returns False. The next script contains an example of using this property.
Sub BlinkOff_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 BlinkOff from " &_
Bind.BlinkOff & " to " & Value
Bind.BlinkOff = Value
End If
End Sub