Транслировать код Turbo Pascal на Visual Basic

[wmc]

Пожалуйста реализуйте. Условия на фото.

Uses Graph,crt;
 
function F(x: double): double;
begin
  F := x * x * sin(x)* sin(x)* sin(x);
end;
 
function IntegralTrap(const a, b, Epsilon: double): double;
var
  i, n: Integer;
  h, s1, s2: Double;
begin
  n := 1;
  h := b-a;
  s2 := h*(F(a)+F(b))/2;
  repeat
    s1 := s2;
    s2 := 0;
    i := 1;
    repeat
      s2 := s2+F(a-h/2+h*i);
      i := i+1;
    until not (i <= n);
    s2 := s1/2 + s2*h/2;
    n := 2*n;
    h := h/2;
  until not (Abs(s2-s1) > 3*Epsilon);
  IntegralTrap := s2;
end;
 
const
 { настройки графика}
 shag=0.0001;{ <-- Шаг изменения X }
 lgr = 0;{ <-- Начальное значение X}
 pgr = 3.14;{ <-- Конечное значение X }
 zcrtX=320;{ <-- Координата X центра экрана }
 zcrty=240;{ <-- Координата Y центра экрана }
 mtrX=50;{ <-- Коэффициент масштабирования по оси X }
 mtrY=50;{ <-- Коэффициент масштабирования по оси Y }
 
Var grDriver : Integer;
      grMode : Integer;
 
    x,y:Double;
    i:integer;
 
nx,ny:integer;
    mx,my:real;
    s:string;
Begin
{вычисляем интеграл и выводим на экран результат}
writeln('Rezultat rascheta integrala po metodu trapecyj = ', IntegralTrap(0, 3.14 / 2, 0.001):3:4);
 
writeln('Nazhmite ljubuju klavishu dlja vyvoda grafika..');
readkey;
 
{инициализация графики}
 
 grDriver:=0;
 InitGraph(grDriver, grMode, '');
 
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
 
{рисуем оси}
setcolor(0);
setlinestyle(0,0,3);
{ось x}
line(10,242,getmaxX-20,242);
line(610,237,getmaxX-20,242);
line(610,247,getmaxX-20,242);
outtextXY(getmaxX-20,250,'X');
{ось y}
line(320,10,320,getmaxy-10);
line(320,10,315,20);
line(320,10,325,20);
outtextXY(305,10,'Y');
 
{строим график}
 x:=lgr;
 while x<=pgr do
 begin
  y:=F(x);
  putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),0);
  x:=x+shag;
 end;
 
 readkey;
 closegraph;
end.