示例：ChartModeChanged 事件

Private Sub Trend1_ChartModeChanged(ByVal NewMode As RSTrend.rstchartModes)
Dim ms As String
If NewMode = rstAutomatic Then
ms = "automatic"
Else
ms = "manual"
End If
MsgBox "Going to " & ms & " mode."
End Sub