问个关于绘图的有关问题

问个关于绘图的问题
private   sub   command1_click()

form1.scale   (0,8)-(18,-8)
form1.cls----------------------删除这一行后，再运行时就发现，多了一条直线
for   i=0   to   15   step   0.001
x=i
y=sin(i)
form1.line   -(x,y)
next   i
form1.cls---------------------增加这一行后，在单击按钮后，直线就没有
end   sub

还有一个问题，单击按钮后，开始绘图，再单击另一个暂停按钮，绘图暂停，刚画的

图形保持，再单击“继续绘图”，继续刚才的绘图


谢谢

[解决办法]
原因我也看不出来,
但是你第一个点没有定位,应该这样
private sub command1_click() 

form1.scale (0,8)-(18,-8) 
 form1.cls 
 form1.pset(0,sin(0))'第一个点定位
 for i=0 to 15 step 0.001 
x=i 
y=sin(i) 
form1.line -(x,y) 
 next i 
end sub 

[解决办法]
Private Sub command1_click()

Form1.Scale (0, 8)-(18, -8)
CurrentX = 0
CurrentY = 8
For i = 0 To 15 Step 0.001
x = i
y = Sin(i)
Form1.Line -(x, y)

Next i

End Sub
加上currentX,Y就好了，开画的起始定位，你画完后已经变成15,0.682xxx了，所以画的不对。cls后就自己变成0了。看下msdn吧。