This property specifies the highest value reached by the source. Example:

Sub SrcHiValue_ValueChange()
  On Error Resume Next
  Dim Bind
  Set Bind = Screen.Item("ScrollBar1").Links.Item("Value")
  Screen.Item("ScrollBar2").Max = Value
  If Bind Is Nothing Then
    MsgBox "ScrollBar1 has no link."
  Else
    MsgBox "ScrollBar1 is linked to " & Bind.Source & "'"
    MsgBox "Changing SrcHiValue from " &_
      Bind.SrcHiValue & " to " & Value
    Bind.SrcHiValue = Value
  End If
End Sub