vb设计的 绘图 直线可清除工具

Print "X ="; X, "Y ="; Y If Button = vbLeftButton Then Picture1.ForeColor = vbRed Picture1.DrawWidth = 3 Picture1.Line (x0, y0)-(X, Y) End If