求教怎么在VB中建立运动轨迹图像

Option Explicit '　变量要先定义后使用
'　FunY(X) 函数，给定 X 计算 FunY(X) 的值
Private Function FunY(X#) As Double
Dim Y#
'　计算 y = x - 0.09340062 * sin(x)
FunY = X - 0.09340062 * Sin(X)
End Function
Private Sub 画线()
'　绘制方程的曲线用【密集描点】法
'　控件：Picture1（图形框）
'　设置坐标系（y1 > 0，y2 < 0）、（x1 < 0，x2 > 0）
'　x1左边界、x2右边界、y1上边界、y2下边界
Dim X#, Y#, x1#, y1#, x2#, y2#
'　对 x1, y1, x2, y2 赋值
x1 = -2 * 3.1415926: x2 = 2 * 3.1415926
y1 = x2: y2 = x1
Picture1.Cls
Picture1.Scale (x1, y1)-(x2, y2) '　定义坐标系
Picture1.Line (x1, 0)-(x2, 0), RGB(0, 0, 255) '　X轴
Picture1.Line (0, y1)-(0, y2), RGB(0, 0, 255) '　Y轴
'　调整 Step 后面的数，控制画线速度，但不能大于0.066667
For X = x1 To x2 Step 0.0001
Y = FunY(X)
Picture1.PSet (X, Y), RGB(255, 0, 255)
Next X
End Sub