PslProperties.Count
Returns the number of custom properties.
Syntax
Expression.Count as Long
Expression Required. Object of type PslProperties
Example
Rem Dump properties of a TransString
Dim t As PslTransString
...
propcount = t.Properties.Count
For i = 1 To propcount
Dim propname As Variant
Dim propval As Variant
propname = t.Properties.Name(j)
propval = t.Properties.Value(j)
PSL.Output propname & " = " & propval
Next j