Перетаскивание фигур

    private: System::Void pictureBox1_MouseDoubleClick(System::Object^ sender, System::Windows::Forms::MouseEventArgs^ e) {
        Graphics^ g = pictureBox1->CreateGraphics();
        Pen^ blackPen = gcnew Pen(Color::Black);
        System::Drawing::Font^ fn = gcnew System::Drawing::Font(FontFamily::GenericMonospace, 14.0F, FontStyle::Bold);
        Brush^ redBrush = gcnew SolidBrush(Color::Red);
 
        Point point = e->Location;
        int radius = 40;
 
        list->Add(point);
 
        g->DrawEllipse(blackPen, point.X, point.Y, radius, radius);
        g->DrawString(Convert::ToString(list->Count), fn, redBrush, point.X + radius / 4, point.Y + radius / 4);
    }
    private: System::Void pictureBox1_MouseDown(System::Object^ sender, System::Windows::Forms::MouseEventArgs^ e) {
        int radius = 40;
 
        for each (Point p in list)
        {
            if ((e->X >= p.X && e->X <= p.X + radius) && (e->Y >= p.Y && e->Y <= p.Y + radius)) {
                canMove = true;
                point = e->Location;
            }
        }
    }