Private Sub LinetypepropertyExample()
'This example returns the Linetype property.
Dim ents As Object
Dim ent As Object
Dim ct As Long
Set ents = ActiveDocument.ModelSpace
ct = ents.Count
Set ent = ents.Item(ct)
MsgBox "The Linetype property for the last entity is: " & ent.Linetype
End Sub