如题！我用以下的代码画抛物线，但画出来的东西不像样，请问有什么问题？可不可以给出一个较完整的代码？

Dim pen As New pen(Color.Red)
Dim x, y As Single
mg = Me.CreateGraphics
For x = 0 To 10 Step 0.1
y = x ^ 2
mg.DrawEllipse(pen, x, y, 1, 1)
Next

好像效果也还是不太理想喔，还有其他方法吗？

哦，先谢了！