speed processing

I have selected over 2000 Elements, and I want to change them to another color(11).
Here is my code
The execution time is over 5 seconds
But for Microstation's "Change attributes" tool it's fast (less than 1 second)
Why is there such a difference? And what can I do to speed up processing? Please

        Dim Ele As TextElement
        Dim EEm As ElementEnumerator
        EEm = Application.ActiveModelReference.GetSelectedElements()
        While EEm.MoveNext
            Ele = EEm.Current
            Ele.Color = 11
            Ele.Rewrite()
        End While