示例：Color 属性

Private Sub SetLineGreen()
 Dim s As String
 Dim p As Pen
 ' Notice that the pen numbers are 1-based
 ' Pen(1) is the first pen, not Pen(0)
 Set p = Trend1.Pens(1)
 s = "The " & p.Description & " line was color #" & p.Color
 MsgBox s, vbOKOnly
 p.Color = rstColorGreen
End Sub