示例：ScrollMode 属性

Private Sub ChangeScrollType()
Select Case Trend1.ScrollMode
Case rstContinuousScroll
Trend1.ScrollMode = rstHalfScreenScroll
Case rstHalfScreenScroll
Trend1.ScrollMode = rstContinuousScroll
Case rstFullScreenScroll
Trend1.ScrollMode = rstFullScreenScroll
End Select
End Sub