Анимированный график

#pragma endregion
 public: int unit = 50; //шаг в пискелях
 public: delegate double DelegatePtr(double); //тип функции для рисования
 
 private:  double f(double x) { //конкретная функция, которую рисуем
  double y=Math::Cos(Math::Sqrt(x));
  return Double::IsNaN(y)?0:y;
 }
private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
  int pW = pictureBox1->Width, pH = pictureBox1->Height;
  Bitmap ^img = gcnew Bitmap(pW, pH); 
   //создаем поверхность для рисования (изображение) с размером элемента управления PictureBox
  Graphics ^g = Graphics::FromImage(img); //создаем устройство для рисования на поверхности
  //рисуем сетку:
  for (int i = 0; i < pW; i += unit) g->DrawLine(Pens::Blue, i, 0, i, pH);
  for (int i = 0; i < pH; i += unit)  g->DrawLine(Pens::Blue, 0, i, pW, i);
  //находим середину и рисуем линии осей:
  int mX = int(pW / 2 - pW / 2 % unit);
  int mY = int(pH / 2 - pH / 2 % unit);
  g->DrawLine(Pens::Red, mX, 0, mX, pH);
  g->DrawLine(Pens::Red, 0, mY, pW, mY);
  g->ScaleTransform(1, -1); //переворачиваем ось Y для удобства восприятия
  g->TranslateTransform((float)mX, -(float)mY); //смещаем нулевую координату на пересечение осей
  //рисуем график:
  DelegatePtr^ f = gcnew DelegatePtr(this, &MyForm::f);
  double x1 = -1., x2 = 10., s = 0.25; //границы рисования
  double x = x1;
  double y;
  System::Collections::Generic::List<PointF> ^Points = 
   gcnew System::Collections::Generic::List<PointF>(); //коллекция точек графика
  while (x < x2) {
   y = f(x);
   Points->Add(PointF(x*unit, y*unit));
    //добавляем точку в коллекцию. Полученные координаты сразу переводим в экранные единицы
   x += s;
  }
  g->DrawLines(Pens::Green, Points->ToArray()); //рисование линий графика
  delete g; //освобождение ресурсов устройства рисования
  this->pictureBox1->Image = img; //присвоение и отображение изображения в PictureBox
}