如何用vb画一条抛物线

Option Explicit
Dim j As Single
Dim record(1000) As Single
Dim p As Single
Private Sub Command1_Click()
p = 4
Picture1.Cls
Picture1.Scale (-200, 2000)-(2000, -2000) '定义坐标
For j = 0 To 250
record(j) = 20 * Sqr(2 * p * j) '抛物线公式Y^=2 * p * X
Picture1.Line (j * 20, record(j) + 2)-(j * 20, record(j) - 2), vbRed, BF 'Y为正的
Picture1.Line (j * 20, -record(j) + 2)-(j * 20, -record(j) - 2), vbRed, BF 'Y为负的
Next
Picture1.Line (-2000, 0)-(2000, 0)'X轴
Picture1.Line (0, 2000)-(0, -2000)'Y轴
End Sub

private sub command_click()
dim x as double
dim y as double
dim step as double
x=-2
y=0
step=0.005
dim i as integer
for i=1 to 10000
y=sqrt(x*2)
x=x+ step
form1.Pset (x,y)
next

end sub

仅画出X,Y坐标轴和抛物线示意图:
Option Explicit
Dim j As Single
Dim record(1000) As Single
Dim p As Single
P