Example: Item method

Private Sub TogglePenVisibilty()
Dim Pen1 As Pen
Dim Ps As Pens 
Set Ps = Trend1.Pens 
' Get pen 1 from the Pens Collection
Set Pen1 = Ps.Item(1)
' Toggle Pen1 visibility
If Pen1.Visible = True Then
Pen1.Visible = False
Else
Pen1.Visible = True
End If 
End Sub