vb 扫除窗体上所有画的直线

vb 清除窗体上所有画的直线
窗体上有别的控件 picture 还有panel容器   窗体还有背景图片
划线的代码
Dim gra As Graphics = Me.CreateGraphics
        Dim myPen As Pen = New Pen(Color.BlueViolet, 2) '颜色，线的粗细
        For j As Integer = 0 To a - 1
            gra.DrawLine(myPen, x1(j), y1(j), xx1(j), yy1(j)) '直线
        Next
怎样一键清除所有的直线 其他的不能清除掉
------解决思路----------------------
调用窗体的Refesh就会重调Paint事件
然后你划线的程序肯定是在窗体的Paint事件中的，搞个开关变量表示清除即可啊