<< Clique para Mostrar o Sumário >>
BlinkOff |
Quando esta propriedade estiver configurada para Verdadeiro, a propriedade conectada alterna periodicamente entre os valores das propriedades OffValue e BlinkOffValue, caso a fonte retorne Falso. Exemplo:
Sub BlinkOff_Change()
On Error Resume Next
Dim Bind
Set Bind = Screen.Item("Retangulo1")._
Links.Item("ForegroundColor")
If Bind Is Nothing Then
MsgBox "Retangulo1 não tem associação."
Else
MsgBox "Retangulo1 está associado a '" & Bind.Source & "'"
MsgBox "Mudando BlinkOff de " & _
Bind.BlinkOff & " para " & Value
Bind.BlinkOff = Value
End If
End Sub