示例：MaxPenNameLength 属性

Private Sub DescribeLineShort()
' Set the description for a pen
Trend1.Pens.Item(1).Description = "Temporary"
' Display the line legend on the chart.
Trend1.DisplayLineLegend = True
' Show only the first four characters - "Temp"
' Remember - this applies to the whole chart.
Trend1.MaxPenNameLength = 4
End Sub