LinetypeScale property example

Sub LinetypeScale_Example()
'This example returns the LinetypeScale 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 - 1)
    MsgBox "The LinetypeScale property for the last entity is: " & ent.LinetypeScale
End Sub