Графическое решение квадратных уравнений - VB

Private Sub Command1_Click()
a=inputbox ("введите переменную")
b=inputbox ("введите переменную")
c=inputbox ("введите переменную")
d=b^2-4*a*c
if d>=0 then
x1=-b+sqrd/2*a
x2=-b-sqrd/2*a
else 
x1="нет корней"
x2="нет корней"
end if
print x1,x2
 scale (-5,0)-(5,0)
line (0,-5)-(0,5)
for x=-5 to x=5
y=x^2
pset (x,y)
next 
print 
End Sub