For k = 0 To I - 2
Picture1.Line (x0 + k * w, (y0 - A(k, 1)))-(x0 + (k + 1) * w, (y0 - A(k + 1, 1))), QBColor(12)
Picture1.Line (x0 + k * w, (y0 - A(k, 2)))-(x0 + (k + 1) * w, (y0 - A(k + 1, 2))), QBColor(10)
Next
form的load里面是这样的.没有20*
然后我点一下Command1_Click怎么原先的线还有,然后我后来画上的线也有??
哪的事????

我在picturebox上加了一个shape控件,在shape控件范围内画的曲线

先将设picture1.drawmode为vbxorpen再画相同的线，然后将picture1.drawmode还原．

用Cls肯定行的啊