Color property example

Sub Color_Example()
'This example demonstrates how to return and change the .Color property.
    Dim ent As AcadEntity
    Dim NewColor As Integer
    Dim Response As VbMsgBoxResult
    MsgBox "Number of entities in ModelSpace = " & ActiveDocument.ModelSpace.Count
    For Each ent In ThisDrawing.ModelSpace
        Response = MsgBox("Found a " & ent.ObjectName & " with color: " & ent.Color & Chr(13) & "Do you want to change it?", vbYesNo, "Color of Entities")
        If Response = vbYes Then
            NewColor = InputBox("New color [0-256]: for " & ent.ObjectName)
            ent.Color = NewColor
            ent.Update
        End If
        ' Display message.
        Response = MsgBox("Continue listing entities?", vbYesNo, "Color of Entities")
        If Response = vbNo Then Exit For
    Next ent
End Sub