Как ускорить затемнение области?

        int _colorA = 0x00000000;
        int _colorB = 0xff000000;
        float _ratioBlend = 0.0f;
        SolidBrush ^_curColor = gcnew SolidBrush(Color::FromArgb(_colorA));
        Timer ^_timer;
        const int _timePlay = 500;
        const int _interval = _timePlay / 40;
        const float _step = (float)_interval / (float)_timePlay;
 
        System::Void RunAnimation()
        {
 
            if (_timer == nullptr)
            {
                _timer = gcnew Timer();
                _timer->Interval = _interval;
                _timer->Tick += gcnew EventHandler(this, &MyForm::Animate);
                _timer->Start();
            }
        }
 
        System::Void Animate(System::Object ^sender, System::EventArgs ^e)
        {
 
            _ratioBlend += _step;
 
            if (_ratioBlend > 1.0f)
            {
                _ratioBlend = 1.0f;
                _timer->Stop();
                delete _timer;
                _timer = nullptr;
            }
 
            _curColor->Color = Color::FromArgb(GetBlendColor(_colorA, _colorB, _ratioBlend));
 
            this->Invalidate();
        }
        
        int GetBlendColor(int ColorA, int ColorB, float Ratio /*значения от 0.0f до 1.0f*/)
        {
            Byte *a = (Byte*)&ColorA;
            Byte *b = (Byte*)&ColorB;
            return a[0] + int((b[0] - a[0]) * Ratio) |
                (a[1] + int((b[1] - a[1]) * Ratio)) << 8 |
                (a[2] + int((b[2] - a[2]) * Ratio)) << 16 |
                (a[3] + int((b[3] - a[3]) * Ratio)) << 24;
        }
        
        System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
            this->RunAnimation();
        }
 
        System::Void MyForm_Paint(System::Object^  sender, System::Windows::Forms::PaintEventArgs^  e) // подписка на событие Paint формы
        {
            e->Graphics->FillRectangle(_curColor, e->ClipRectangle);
        }