示例：PenConfigChanged 事件

Private Sub Trend1_PenConfigChanged(ByVal Change As Long, ByVal Pen As Long)
Dim ms As String
Select Case Change
Case RSTrend.RSTpenConfigChanges.rstPenAdded
ms = "added"
Case RSTrend.RSTpenConfigChanges.rstPenModified
ms = "modified"
Case RSTrend.RSTpenConfigChanges.rstPenRemoved
ms = "removed"
End Select
MsgBox "Pen " & ms & "."
End Sub