Как в Visual Basic сделать так чтобы при нажатии на PictureBox он исчезал?

)Соберите данные из текста, и создайте диаграмму или постер.

САМ ТЕКСТ↓↓↓↓↓

«Ұлы Жібек жолы» — Қазақстан жері арқылы өткен сауда-саттық жолы.

Қазақстанның ортағасырлық қалаВЫФФФларында жүргізілген қазба жұмыстары кезінде археологтер

Қытай мен Византия, Иран мен Үндістан елдерінде соғылған теңгелер мен ділдаларды

тапқан. Алматы қаласының маңындағы Талғар қаласының орнын қазған кезде Иранда

жаЗалған қола табақ, қытай фарфоры мен жапонның фаянс тостағанының сынығы және т.б.

бұйымдар табылған.

«Ұлы Жібек жолының» бойымен саудагерлер Ферғананың әйгілі тұлпарларын, түйе,

пілдермен қатар барқыт, жібек, мақпал, торғын маталарды, киім-кешекті және т. б. бағалы

тауарларды сату үшін алып өткен. Осы жол арқылы қант, жүзім, шабдалы, қауын сияқты

жеміс-жидек те саудаланған.

Объяснение:

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.