用vb编写螺旋线绘图的程序

关于绘制出螺旋线的vb程序设计，PrivateSubForm_Click()DimxAsSingle,yAsSingle,IAsSingleScale(-15,15)-(15,-15)Line(0,14)-(0,-14)Line(14.5,0)-(-14.5,0)ForI=0To12Step0.01y=I*Sin(I)x=I*Cos(I)PSet(x,y)NextIEndSub。