在线怎样删除画的线

Question

怎样删除画的线 (line)

Answer 1

Line(0,0)-(1500,1500)
DrawMode=vbXorPen
Line(0,0)-(1500,1500)
DrawMode=vbCopyPen

Answer 2

用异或笔画，重画即可擦去，
要注意改变颜色，
.DrawMode = 7'设置异或笔

Answer 3

Private Sub Command1_Click()
    DrawMode = vbXorPen
    Line (0, 0)-(1500, 1500), vbWhite
    DrawMode = vbCopyPen
End Sub

Answer 4

DrawMode = vbXorPen'设置异或笔
Line (0, 0)-(1500, 1500), Me.BackColor'画线
DrawMode = vbCopyPen7'恢复缺省值

Answer 5

wangsj015()
我想的是做个时钟，要是老是改变颜色那样会对程序产生影响不？