Example: DisplayScrollMechanism property

Private Sub ToggleDisplayScrollMechanism()
If Trend1.DisplayScrollMechanism = True Then
' The scroll mechanism is shown, so hide it.
Trend1.DisplayScrollMechanism = False
If Trend1.Scroll = False Then
' Apparently, the operator used the VCR buttons,
' which stops scrolling.
' Start scrolling back up.
Trend1.Scroll = True
End If
Else
' The scroll mechanism is hidden, so show it.
Trend1.DisplayScrollMechanism = True
End If
End Sub