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