用vb中Pset函数画点

我用vb的Pset（）函数画点，但是都是一个一个的点，怎么才能够画出的图是像素图那样的呢？请各位大侠指教啊！谢谢！

Private Sub Command1_Click() '确定按钮单击事件
Dim x, y As Single '定义x,y两个变量
Picture1.Scale (-10, 25)-(10, -25) '定义坐标系
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴，颜色为蓝色
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴，颜色为蓝色
'用循环语句描点画函数图像
For x = -10 To 10 Step 0.0001 'x值从-10变化到10，每次增量为0.0001
y = x ^ 2 '根据表达式y=x2来计算y值
Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点
Next x '取下一个增量后的x值
End Sub '结束程序

这个编码应该可以 吧

object.pset [step] (x, y), [color]pset 方法的语法有如下对象限定符和部分：部分描述object可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。step可选的。关键字，指定相对于由 currentx 和 currenty 属性提供的当前图形位置的坐标。(x, y)必需的。 single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。color可选的。long （长整型数），为该点指定的 rgb 颜色。如果它被省略，则使用当前的 forecolor 属性值。可用 rgb 函数或 qbcolor 函数指定颜色。 可以用来清除制定位置点或画出一个点。