如何使窗体具有自动重绘功能,并能够不闪烁?

我想用VB来画图，新建一个工程，取默认状态，在窗体上放置一个picture控件并在上面画一长线条，当拖大窗体后，如果不在Form.Resize事件中重画线条的话线条是不会沿长的。
    我想请教如何在没有Form.Resize事件的条件下调整窗体大小后可以重绘线条？因为如果必须在Form.Resize事件中重新绘图的话，若我所绘的图较大较多，在调整窗体的时候将会出现窗体内线条严重闪烁的现象，并可以明显地看出重绘图型时的过程，这在实际应用中是不能够接受的，请问如何才能够避免这种情况？或是有其它的绘制过程(控件/方法)？
                谢谢！
下面是我要用的简单例程
Private Sub Form_Resize() '改变窗体大小，如果没有此过程怎么样才可以有自动重绘功能？
    Picture1.Width = Form1.Width
    Picture1.Height = Form1.Height
    Picture1.Line (500, 500)-(10000, 500) '重新画线条
End SubPrivate Sub Picture1_KeyPress(KeyAscii As Integer) '随便画一长线条
    Picture1.Line (500, 500)-(10000, 500)
End Sub