Example: Name property

Private Sub GetTagsInModel()
Dim s As String
Dim p As Pen
' Go through all Pens in the collection
For Each p In TrendX1.Pens
' Find the Pens that are in the CureProc data log model
If p.DataLogModelName = "CureProc" Then
s = s & ", " & p.Name
End If
Next
MsgBox "Pens from the CureProc Data Log Model: " & s
End Sub