示例：添加笔

Dim pen1, pen2, pen3 As pen
Private Sub AddPens()
Dim Ps as Pens
Set Ps = Trendx1.Pens
' The tag value identifies the pen
' it must be unique within the control.
Set pen1 = Ps.Add("Tag0", "Temp 1", "Deg F", 0, 100)
Set pen2 = Ps.Add("Tag1", "Pump 1", "Volts", 0, 100)
Set pen3 = Ps.Add("Tag2", "Current", "Amps", 0, 100)
End Sub