Как в visual basic 2010 сделать кнопку "очистить"? программа после показанного графика должна убрать его и вписанные значения для этого графика, чтобы вписать их снова.

Современный прогресс человечества связан в первую очередь с глобальной информатизацией всего мирового сообщества. Уместно отметить, что современные компьютерные сети являются системой, возможности и характеристики которой в целом существенно превышают соответствующие показатели простой суммы составляющих элементов сети персональных компьютеров при отсутствии взаимодействия между ними.
Достоинства компьютерных сетей обусловили их широкое распространение в информационных системах кредитно-финансовой сферы, органов государственного управления и местного самоуправления, предприятий и организаций. Компьютерная сеть - объединение нескольких ЭВМ для совместного решения информационных, вычислительных, учебных и других задач.
Все компьютерные сети без исключения имеют одно назначение-обеспечение совместного доступа к общим ресурсам. Слово ресурс очень удобное. Ресурсы бывают трех видов: аппаратные, программные, информационные.

Program sumS;
uses crt;
var 
ax,ay,bx,by,cx,cy,mx,my,nx,ny,px,py:integer;
S1,S2,Sum:real;
begin
write( 'Введите координату х вершины А:');
readln(ax);
write( 'Введите координату y вершины А:');
readln(ay);
write( 'Введите координату х вершины B:');
readln(bx);
write( 'Введите координату y вершины B:');
readln(by);
write( 'Введите координату х вершины C:');
readln(cx);
write( 'Введите координату y вершины C:');
readln(cy);
write( 'Введите координату х вершины M:');
readln(mx);
write( 'Введите координату y вершины M:');
readln(my);
write( 'Введите координату х вершины N:');readln(nx);
write( 'Введите координату y вершины N:');
readln(ny);
write( 'Введите координату х вершины P:');
readln(px);
write( 'Введите координату y вершины P:');
readln(py);
writeln( 'Координаты треугольника ABC: A(' ,ax,';',ay,') ,B('  ,bx,';',by,') ,C('  ,cx,';',cy,')'); 
writeln( 'Координаты треугольника MNP: M(' ,mx,';',my,') ,N('  ,nx,';',ny,') ,P('  ,px,';',py,')'); 
S1:=abs(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2);
writeln('Площадь треугольника ABC=',S1);
S2:=abs(((mx-px)*(ny-py)-(nx-px)*(my-py))/2);
writeln('Площадь треугольника ABC=',S2);
Sum:=s1+s2;
writeln('Сумма площадей=',sum);
readln;end.