программа из Delphi в Visual Basic

[aiktz]

на дельфи я создавала бильярд....только вот не умею переписывать на VB...помогите пожалуйтса переписать программу из Delphi в Visual Basic))))

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
x:=x+dx; 
y:=y+dy; 
if x>585 then dx:=-dx; 
if y>334 then dy:=-dy; 
if x<163 then dx:=-dx; 
if y<163 then dy:=-dy; 
Canvas.Pen.Style:=psSolid; 
Canvas.Brush.Color :=clRed; 
Canvas.Pen.Color :=clBlack; 
Canvas.Ellipse(x-r,y-r,x+r,y+r); 
//for i:=1 to 1000000 do 
Sleep(50); // задержка, чтобы видеть изображение шара 
//z:=Sin(5); 
Canvas.Pen.Style:=psSolid; 
Canvas.Brush.Color :=clGreen; 
Canvas.Pen.Color :=clGreen; 
Canvas.Ellipse(x-r,y-r,x+r,y+r); 
end;