VB的一点小问题，谢谢帮忙！！！！

Question

Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Picture1.CurrentX = X 
Picture1.CurrentY = Y 
End Sub Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button Then Picture1.Line -(X, Y), Fcolor 
End Sub 
当我鼠标单击开始画线 
我要如何才能在我第二次划线（单击）的时候，刚才画的线去除掉 
也就说我每次单击都要重新画！！ 
谢谢了！！！！

Answer 1

记录上次一条线的位置，重新用picture1背景色画一次

Answer 2

设picture1.autoredraw=false,然后每次画时刷新.picture1.refresh
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Refresh
Picture1.CurrentX = X
Picture1.CurrentY = Y
End SubPrivate Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then Picture1.Line -(X, Y), Fcolor
End Sub

Answer 3

如果背景不是单色的，可以用xor笔画。

Answer 4

在picture1_MouseDown里
Picture1.Cls亦可

Answer 5

问题是我不想用picture1.cls,因为我这里还有其他的画图，比如直线，圆什么的，如果是cls的话。我其他的都删除了。

Answer 6

yimain(一头雾水) 谢谢了！！！