Перерисовка всех сегментов кругов на pictureBox: каждый новый нарисованный стирает предыдущий

 bool DrawSegment(PaintEventArgs^ exer)
    {
        exer->Graphics->DrawLine(Blackpen,(int)massive[6],(int)massive[7],(int)massive[8],(int)massive[9]);
        exer->Graphics->DrawArc(Blackpen,(int)massive[0],(int)massive[1],(int)massive[2],(int)massive[3],(int)massive[4],(int)massive[5]);
        return true;
    }

    bool DrawAllFigures(PaintEventArgs^ a)
    {
            //Перебор всех CirlceSegment в [U]List<CircleSegment^> Alfa[/U]
        for each(CircleSegment^ segment in Alfa)
        {
            segment->DrawSegment(a);
            
        }
        return true;
    }

System::Void pictureBox1_Paint(System::Object^  sender, System::Windows::Forms::PaintEventArgs^  e) {       
 
             Pen^ Blackpen = gcnew Pen(Color::Black,2.0f);
             e->Graphics->DrawLine(Blackpen,0,0,500,0);
             e->Graphics->DrawLine(Blackpen,0,0,0,500);
 
            if(allow_repaint == 1)
            {
                              // Здесь myCollection  это SegmentCircleCollection
                  myCollection->DrawAllFigures(e);

ref class CircleSegment {
private:
    
public:
    array<double>^ massive;
    Pen^ Blackpen;
    int index;
 
    CircleSegment(Color a,float z,array<double>^ temp)
    {
        massive = gcnew array<double>(10);
        Blackpen = gcnew Pen(a,z);
        massive = temp;
    }