BlinkOff

<< Click to Display Table of Contents >>

 

BlinkOff

Boolean 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

Was this page useful?