请问一下，如果我的程序，是根据循环画线，不停的在画，我想让上次画的线，当下次画线出现时，将上次画的线自动擦除，我改怎么做，我编了个试验程序，怎么实现不了，有错误

Option Base 1
Private Sub Command1_Click()
Dim i
Dim j(10000)
CurrentX = Picture1.Width / 2
CurrentY = Picture1.Height / 2

For i = 1 To 10000
DoEvents
j(10000) = Rnd
Picture1.Scale (1, 0)-(10000, 0.5)
Picture1.Line -(i, j(i)), RGB(255, 0, 0)
Unload Line
Picture1.PSet (i, j(i))
Next

End Sub

Private Sub Command2_Click()
Dim j
For j = 1 To 100
DoEvents
Command1_Click
Next
End Sub

谢谢，我本来也是用这个方法，但是我看到用UNLOAD LINE 可以擦除，但是总是提示我必须要加参数，我把起点和终点坐标都给他添上，还是提示我这个错误，不知道，为什么？

请你给我列举一个简单的例子，可以吗？这块我不知道从何处下手，谢谢