set oSelection = Application.Selection  
for i = 0 to (oSelection.Count - 1)  
	set oGeometry = oSelection(i).activeprimitive.geometry
	LogMessage oSelection(i).Name & " has " & oGeometry.Clusters.Count & " clusters"
next