BlinkOffValue

<< Click to Display Table of Contents >>

 

BlinkOffValue

Variant This property specifies an alternative value the property assumes periodically when source's expression returns False and the BlinkOff property is set to True. Example:

Sub BlinkOffValue_Click()
  On Error Resume Next
  Dim Value
  If Application.ShowPickColor_
    (Value, ForegroundColor, 400, 300) Then
    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 BlinkOffValue from " &_
        Bind.BlinkOffValue & " to " & Value
      Bind.BlinkOffValue = Value
    End If
    ForegroundColor = Value
  End If
End Sub

Was this page useful?