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²

       Picture1.PSet (x, y), RGB(255, 0, 0)         '根据x,y的值用红色描点

    Next x                                    '取下一个增量后的x值

End Sub