<< Clique para Mostrar o Sumário >>
DstLoValue |
Esta propriedade especifica o valor mínimo atingido na propriedade. Exemplo:
Sub DstLoValue_ValueChange()
On Error Resume Next
Dim Bind
Set Bind = Screen.Item("ScrollBar1").Links.Item("Value")
Screen.Item("ScrollBar1").Min = Value
If Bind Is Nothing Then
MsgBox "ScrollBar1 não tem associação."
Else
MsgBox "ScrollBar1 está associado a '" & Bind.Source & "'"
MsgBox "Mudando DstLoValue de " &_
Bind.DstLoValue & " para " & Value
Bind.DstLoValue = Value
End If
End Sub