求VB代码，帮帮忙

这是图像代码。
＝＝＝＝＝＝＝＝＝
Private Sub Form_Paint()
Cls
Dim x As Single
Scale (-10, 10)-(10, -10)
Line (-10, 0)-(10, 0), vbBlue
Line (0, -10)-(0, 10), vbBlue
For x = -10 To 10 Step 0.001
PSet (x, 4 * x * x + 6 * x + 1), vbRed
Next
End Sub

dim x
4x^2+6x+1

public function test(x as integer) as long
on error goto ex
test =4 * (x ^ 2) + (6 * x) +1
exit function
ex:
debug.print err.description
end function

dim x,y as single
x=inputbox("请输入X的值")
y=4*x*x+6*x+1
msgbox"当X的值为" & x & "Y值为" & y

Private Sub Form_Click()
a = 4
b = 6
c = 1

d = b ^ 2 - 4 * a * c
If d >= 0 Then
If d = 0 Then
X1 = (-b + d ^ 0.5) / 2
MsgBox "方程有一解：X=" & CStr(X1)
Else
X1 = (-b + d ^ 0.5) / 2
X2 = (-b - d ^ 0.5) / 2
MsgBox "方程有二解：X1=" &